diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs
index 2dce5d61..3f1af405 100644
--- a/hbs2-core/lib/HBS2/Actors/Peer.hs
+++ b/hbs2-core/lib/HBS2/Actors/Peer.hs
@@ -405,7 +405,7 @@ runPeerM :: forall e m . ( MonadIO m
 runPeerM env f  = do
 
   let de = view envDeferred env
-  as <- liftIO $ replicateM 32 $ async $ runPipeline de
+  as <- liftIO $ replicateM 16 $ async $ runPipeline de
 
   sw <- liftIO $ async $ forever $ withPeerM env $ do
           pause defSweepTimeout