diff --git a/Data/Conduit/Combinators.hs b/Data/Conduit/Combinators.hs
--- a/Data/Conduit/Combinators.hs
+++ b/Data/Conduit/Combinators.hs
@@ -618,8 +618,8 @@
     let initSize = 10
     mv0 <- liftBase $ VM.new initSize
     let go maxSize i mv | i >= maxSize = do
-            let newMax = maxSize + 10
-            mv' <- liftBase $ VM.grow mv newMax
+            let newMax = maxSize * 2
+            mv' <- liftBase $ VM.grow mv maxSize
             go newMax i mv'
         go maxSize i mv = do
             mx <- await
diff --git a/conduit-combinators.cabal b/conduit-combinators.cabal
--- a/conduit-combinators.cabal
+++ b/conduit-combinators.cabal
@@ -1,5 +1,5 @@
 name:                conduit-combinators
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            Commonly used conduit functions, for both chunked and unchunked data
 description:         Provides a replacement for Data.Conduit.List, as well as a convenient Conduit module.
 homepage:            https://github.com/fpco/conduit-combinators