diff --git a/hbs2-peer/app/PeerInfo.hs b/hbs2-peer/app/PeerInfo.hs
index c2a9aa53..d6f99c9a 100644
--- a/hbs2-peer/app/PeerInfo.hs
+++ b/hbs2-peer/app/PeerInfo.hs
@@ -171,6 +171,8 @@ peerPingLoop cfg = do
       let pfails = view peerPingFailed pinfo
       let pdownfails = view peerDownloadFail pinfo
 
+      -- FIXME: seems-like-a-bad-idea
+      --   Кажется, вызывает гонки
       liftIO $ atomically $ modifyTVar pfails succ
 
       sendPing @e p