diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs b/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs
index 06c82315..b3272017 100644
--- a/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs
+++ b/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs
@@ -99,7 +99,7 @@ blockChunksProto adapter (BlockChunks c p) = do
 
       bsz' <- blkSize adapter h
 
-      maybe1 bsz' (pure ()) $ \bsz -> do
+      maybe1 bsz' (pure ()) $ \bsz -> deferred @proto do
 
         let offsets' = calcChunks bsz (fromIntegral size) :: [(Offset, Size)]
         let offsets = take (fromIntegral num) $ drop (fromIntegral n1) $ zip offsets' [0..]