diff --git a/hbs2-peer/app/RefLog.hs b/hbs2-peer/app/RefLog.hs
index 8197ba25..c3abfb4a 100644
--- a/hbs2-peer/app/RefLog.hs
+++ b/hbs2-peer/app/RefLog.hs
@@ -188,7 +188,9 @@ reflogWorker conf adapter = do
                 bss <- liftIO $ getBlock sto (fromHashRef ha)
 
                 when (isNothing bss) do
-                  liftIO $ reflogDownload adapter (fromHashRef ha)
+                  trace $ "missed block for " <+> pretty ha
+
+                liftIO $ reflogDownload adapter (fromHashRef ha)
 
                 bs <- MaybeT $ pure bss