--- a/tests/QC/ByteString.hs
+++ b/tests/QC/ByteString.hs
@@ -160,7 +160,7 @@
     , testProperty "peekMaybe" peekMaybe
     , testProperty "peek" peek
     , testProperty "satisfy" satisfy
-    , testProperty "satisfyWith" satisfyWith
+    , testProperty "satisfyWith" (forAll arbitraryASCIIChar satisfyWith)
     , testProperty "scan" scan
     , testProperty "skipWord8" skipWord8
     , testProperty "skipWhile" skipWhile
