diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs
index 7738e44b09..329d808fcf 100644
--- a/Assistant/NetMessager.hs
+++ b/Assistant/NetMessager.hs
@@ -43,7 +43,7 @@ storeImportantNetMessage m client matchingclient = go <<~ netMessager
 		sent <- takeTMVar $ sentImportantNetMessages nm
 		putTMVar (importantNetMessages nm) $
 			M.alter (Just . maybe (S.singleton m) (S.insert m)) client $
-				M.mapWithKey removematching sent q
+				M.mapWithKey removematching q
 		putTMVar (sentImportantNetMessages nm) $
 			M.mapWithKey removematching sent
 	removematching someclient s