1 files changed, 2 insertions, 2 deletions

diff --git a/OnionRouter.hs b/OnionRouter.hs
index 96381e7f..018a6314 100644
--- a/OnionRouter.hs
+++ b/OnionRouter.hs
@@ -153,7 +153,7 @@ newOnionRouter :: TransportCrypto
                     -> (String -> IO ())
                     -> IO ( OnionRouter
                           , TVar ( ChaChaDRG
-                                 , Word64Map (Either (MVar TCP.RelayPacket)
+                                 , Word64Map (Either (MVar (Bool,TCP.RelayPacket))
                                                      (MVar (OnionMessage Identity)))))
 newOnionRouter crypto perror = do
     drg0 <- drgNew
@@ -164,7 +164,7 @@ newOnionRouter crypto perror = do
         return (rlog,pq,rm)
     ((tbl,tcptbl),tcp) <- do
         (tcptbl, client) <- TCP.newClient crypto Left $ \case
-            Left v  -> void . tryPutMVar v
+            Left v  -> void . tryPutMVar v . (,) False
             Right v -> \case
                 TCP.OnionPacketResponse x@(OnionAnnounceResponse n8 n24 _) -> do
                     mod <- lookupSender' pq rlog localhost4 n8