diff -r 2c43cd7d5ce6 -r 4e61c2a42121 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Mon Jan 10 18:29:43 2011 +0300
+++ b/gameServer/Actions.hs	Mon Jan 10 18:57:44 2011 +0300
@@ -427,8 +427,8 @@
     si <- gets serverInfo
     liftIO $ do
         ci <- addClient rnc client
-        forkIO $ clientRecvLoop (clientSocket client) (coreChan si) ci
-        forkIO $ clientSendLoop (clientSocket client) (sendChan client) ci
+        t <- forkIO $ clientRecvLoop (clientSocket client) (coreChan si) ci
+        forkIO $ clientSendLoop (clientSocket client) t (sendChan client) ci
 
         infoM "Clients" (show ci ++ ": New client. Time: " ++ show (connectTime client))