diff --git a/Data/StorableVector/Lazy.hs b/Data/StorableVector/Lazy.hs
--- a/Data/StorableVector/Lazy.hs
+++ b/Data/StorableVector/Lazy.hs
@@ -83,7 +83,7 @@
    deriving (Eq, Ord, Show)
 
 instance Arbitrary ChunkSize where
-   arbitrary = fmap (ChunkSize . max 1) arbitrary
+   arbitrary = fmap (ChunkSize . max 1 . min 2048) arbitrary
 
 {-
 ToDo:
diff --git a/storablevector.cabal b/storablevector.cabal
--- a/storablevector.cabal
+++ b/storablevector.cabal
@@ -1,5 +1,5 @@
 Name:                storablevector
-Version:             0.2.8
+Version:             0.2.8.1
 Category:            Data
 Synopsis:            Fast, packed, strict storable arrays with a list interface like ByteString
 Description:
@@ -52,7 +52,7 @@
 Source-Repository this
   type:     darcs
   location: http://code.haskell.org/storablevector/
-  tag:      0.2.8
+  tag:      0.2.8.1
 
 Library
   Build-Depends: