diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs
index bc8bb30d..963788b8 100644
--- a/hbs2-peer/app/BlockDownload.hs
+++ b/hbs2-peer/app/BlockDownload.hs
@@ -539,6 +539,8 @@ postponedLoop env0 = do
           for_ wip1 $ \h -> do
             removeFromWip h
             addDownload h
+            wip2 <- asks (view blockWip) >>= liftIO . Cache.keys
+            liftIO $ atomically $ writeTVar twip (length wip2)
 
   void $ liftIO $ async $ withPeerM e $ withDownload env0 do
     forever do