diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index b5dc0c16..2e396bf9 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -422,6 +422,8 @@ refChanUpdateProto self pc adapter msg = do
 
        accepts <- atomically $ readTVar (view refChanRoundAccepts rcRound) <&> HashMap.size
 
+       debug $ "ACCEPTS" <+> pretty accepts
+
        -- FIXME: round!
        when (accepts > 2) do
          debug $ "ROUND!" <+> pretty accepts <+> pretty hashRef