diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 7548a606..bbe5d685 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -567,6 +567,8 @@ runPeer opts = Exception.handle myException $ do
 
                    | otherwise -> do
 
+                    update d (KnownPeerKey p) id
+
                     pd' <- knownPeers @e pl >>=
                               \peers -> forM peers $ \pip -> do
                                           pd <- find (KnownPeerKey pip) (view peerOwnNonce)