diff --git a/hbs2-core/lib/HBS2/Defaults.hs b/hbs2-core/lib/HBS2/Defaults.hs
index d6edf787..be3e162b 100644
--- a/hbs2-core/lib/HBS2/Defaults.hs
+++ b/hbs2-core/lib/HBS2/Defaults.hs
@@ -5,7 +5,7 @@ import Data.String
 
 -- defChunkSize :: Integer
 defChunkSize :: Integral a => a
-defChunkSize = 1024
+defChunkSize = 500
 
 defBlockSize :: Integer
 defBlockSize = 256 * 1024
diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs
index db4621e3..2b94fd2c 100644
--- a/hbs2-tests/test/Peer2Main.hs
+++ b/hbs2-tests/test/Peer2Main.hs
@@ -159,8 +159,8 @@ runTestPeer p zu = do
   stor <- simpleStorageInit opts
   cww  <- newChunkWriterIO  stor (Just chDir)
 
-  sw <- liftIO $ replicateM 32 $ async $ simpleStorageWorker stor
-  cw <- liftIO $ replicateM  8 $ async $ runChunkWriter cww
+  sw <- liftIO $ replicateM 8  $ async $ simpleStorageWorker stor
+  cw <- liftIO $ replicateM 16 $ async $ runChunkWriter cww
 
   zu stor cww