diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 99973df8..f9c521cc 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -636,11 +636,13 @@ withRPC saddr cmd = do
 
   pingQ <- newTQueueIO
 
+  pokeQ <- newTQueueIO
+
   prpc <- async $ runRPC udp1 do
                     env <- ask
                     proto <- liftIO $ async $ continueWithRPC env $ do
                       runProto @UDP
-                        [ makeResponse (rpcHandler (adapter pingQ))
+                        [ makeResponse (rpcHandler (adapter pingQ pokeQ))
                         ]
 
                     request rpc cmd