diff --git a/hbs2-peer/app/MailboxProtoWorker.hs b/hbs2-peer/app/MailboxProtoWorker.hs
index 9d03bbea..9a1c8bcd 100644
--- a/hbs2-peer/app/MailboxProtoWorker.hs
+++ b/hbs2-peer/app/MailboxProtoWorker.hs
@@ -351,7 +351,9 @@ startDownloadStuff :: forall s e m . (ForMailbox s, s ~ Encryption e, MyPeer e,
 
 startDownloadStuff MailboxProtoWorker{..} href = do
   liftIO $ withPeerM mpwPeerEnv $ withDownload mpwDownloadEnv
-    $ addDownload @e Nothing (coerce href)
+    $ do
+      debug $ "startDownloadStuff" <+> pretty href
+      addDownload @e Nothing (coerce href)
 
 listMailboxes :: forall s m . (ForMailbox s, MonadIO m)
               => DBPipeEnv
diff --git a/hbs2-peer/app/PeerTypes.hs b/hbs2-peer/app/PeerTypes.hs
index 695ac2b2..c5d4e49d 100644
--- a/hbs2-peer/app/PeerTypes.hs
+++ b/hbs2-peer/app/PeerTypes.hs
@@ -312,6 +312,9 @@ addDownload :: forall e m . ( DownloadConstr e m
 
 addDownload mbh h = do
 
+  -- FIXME: remove-shit
+  debug $ "addDownload" <+> pretty h
+
   tinq <- asks (view blockInQ)
   checkQ <- asks (view blockCheckQ)
   dirty <- asks (view blockInDirty)