diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index 2f34417b..3823abe5 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -404,6 +404,9 @@ refChanUpdateProto self pc adapter msg = do
 
        (peerKey, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed
 
+
+       debug $ "ACCEPT FROM:" <+> pretty (AsBase58 peerKey)
+
        -- compiler bug?
        let (ProposeTran _ pbox) = ptran