diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
index 80ac56c4..a50702ca 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
@@ -165,6 +165,9 @@ ncqIndexCompactStep me@NCQStorage{..} = flip runContT pure $ callCC \exit -> do
 
   r' <- lift $ ncqFindMinPairOf me idx
 
+  debug $ "ncqIndexCompactStep " <+> pretty idx
+  debug $ "ncqIndexCompactStep found pair" <+> pretty r'
+
   (_, a, b) <- ContT $ maybe1 r' (pure False)
 
   let idx1Name = ncqGetFileName me a