diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 52f6cae6..dacfd09e 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -1064,6 +1064,7 @@ runPeer opts = U.handle (\e -> myException e
       ]
 
   link rpcProto
+  link loop
 
   void $ waitAnyCancel $ w <> [ udp
                               , loop