diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,10 @@
 # doclayout
 
+## 0.5.0.3
+
+  * Tests: Go back to using withMaxSuccess for compatibility with older
+    QuickCheck versions.
+
 ## 0.5.0.2
 
   * Performance optimizations:
diff --git a/doclayout.cabal b/doclayout.cabal
--- a/doclayout.cabal
+++ b/doclayout.cabal
@@ -1,5 +1,5 @@
 name:                doclayout
-version:             0.5.0.2
+version:             0.5.0.3
 synopsis:            A prettyprinting library for laying out text documents.
 description:         doclayout is a prettyprinting library for laying out
                      text documents, with several features not present
diff --git a/test/test.hs b/test/test.hs
--- a/test/test.hs
+++ b/test/test.hs
@@ -331,10 +331,10 @@
   , testGroup "all zero-width joiner emoji sequences have width 2" $
       zwjEmojis <&> \emoji -> testCase (T.unpack emoji) $ realLength emoji @?= 2
 
-  , testProperty "shortcut provides same answer for string length in a narrow context" . withNumTests 10000 $
+  , testProperty "shortcut provides same answer for string length in a narrow context" . withMaxSuccess 10000 $
 
       \(x :: String) -> realLengthNarrowContext x === realLengthNarrowContextNoShortcut x
 
-  , testProperty "shortcut provides same answer for string length in a wide context" . withNumTests 10000 $
+  , testProperty "shortcut provides same answer for string length in a wide context" . withMaxSuccess 10000 $
       \(x :: String) -> realLengthWideContext x === realLengthWideContextNoShortcut x
   ]