diff -r 59b13b38a827 -r 7915668502a6 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue Mar 29 20:10:56 2011 -0400
+++ b/gameServer/Actions.hs	Sat Apr 02 20:01:20 2011 +0400
@@ -395,7 +395,7 @@
     si <- gets serverInfo
     newClId <- io $ do
         ci <- addClient rnc cl
-        _ <- Exception.block . forkIO $ clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci
+        _ <- Exception.mask (forkIO . clientRecvLoop (clientSocket cl) (coreChan si) (sendChan cl) ci)
 
         infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime cl))