diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs
index c8382c8b..b73bf59b 100644
--- a/hbs2-tests/test/Peer2Main.hs
+++ b/hbs2-tests/test/Peer2Main.hs
@@ -585,7 +585,7 @@ main = do
     let (p0:ps) = [0..1] :: [Peer Fake]
 
     -- others
-    others <- forM ps $ \p -> async $ runTestPeer p $ \s cw  -> do
+    others <- forM ps $ \p -> asyncBound $ runTestPeer p $ \s cw  -> do
                 let findBlk = hasBlock s
 
                 -- let size = 1024*1024*1