diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index fd7d1552..ed9870f6 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -485,6 +485,8 @@ logMergeProcess _ q = do
                     S.yield prop
                     S.each accs
 
+      debug $ "NEW TRANS TO MERGE" <+> pretty new
+
       let merged = HashSet.union current (HashSet.fromList new) & HashSet.toList
 
       let pt = toPTree (MaxSize 256) (MaxNum 256) merged