diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index c08569f8..f950b175 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -494,6 +494,8 @@ logMergeProcess _ q = do
       let permitted = HashMap.fromListWith merge1 (mconcat (catMaybes r))
                           & HashMap.toList
 
+      debug $ "PERMITTED" <+> pretty permitted
+
       new <- S.toList_ do
                 forM_ permitted $ \(prop, (qx, accs)) -> do
                   when (length accs >= qx) do