--- a/gameServer/ClientIO.hs	Sun Jul 25 10:16:34 2010 -0400
+++ b/gameServer/ClientIO.hs	Sun Jul 25 18:55:54 2010 +0400
@@ -61,7 +61,7 @@
 clientSendLoop s coreChan chan ci = do
     answer <- readChan chan
     doClose <- Exception.handle
-        (\(e :: Exception.IOException) -> if isQuit answer then return True else sendQuit e >> return False) $ do
+        (\(e :: Exception.IOException) -> if isQuit answer then return True else sendQuit e >> return True) $ do
             sendAll s $ (B.unlines answer) `B.append` (B.singleton '\n')
             return $ isQuit answer