diff --git a/streaming-commons.cabal b/streaming-commons.cabal
--- a/streaming-commons.cabal
+++ b/streaming-commons.cabal
@@ -1,5 +1,5 @@
 name:                streaming-commons
-version:             0.1.2.1
+version:             0.1.2.2
 synopsis:            Common lower-level functions needed by various streaming data libraries
 description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes.
 homepage:            https://github.com/fpco/streaming-commons
diff --git a/test/Data/Streaming/TextSpec.hs b/test/Data/Streaming/TextSpec.hs
--- a/test/Data/Streaming/TextSpec.hs
+++ b/test/Data/Streaming/TextSpec.hs
@@ -19,7 +19,7 @@
 try' a = try $ evaluate (a `deepseq` a)
 
 spec :: Spec
-spec = describe "Data.Streaming.TextSpec" $ modifyMaxSuccess (const 10000) $ do
+spec = describe "Data.Streaming.TextSpec" $ {-modifyMaxSuccess (const 10000) $ -}do
     let test name lazy stream encodeLazy encodeStrict = describe name $ do
             prop "bytes" $ check lazy stream
             prop "chars" $ \css -> do
@@ -29,7 +29,7 @@
                     bss = L.toChunks lbs
                     wss = map S.unpack bss
                  in check lazy stream wss
-            it "high code points" $ forM_ [10, 20..50000] $ \cnt -> do
+            it "high code points" $ forM_ [100, 200..50000] $ \cnt -> do
                 let t = T.replicate cnt "\x10000"
                     bs = encodeStrict t
                 case stream bs of