--- a/gameServer/ClientIO.hs	Wed Mar 09 22:39:35 2011 +0100
+++ b/gameServer/ClientIO.hs	Thu Mar 10 22:28:40 2011 +0300
@@ -51,6 +51,8 @@
         msg <- (listenLoop s chan ci >> return "Connection closed") `catch` (return . B.pack . show)
         clientOff msg
     `Exception.finally`
+    do
+        clientOff "Connection closed ()"
         remove
     where
         clientOff msg = writeChan chan $ ClientMessage (ci, ["QUIT", msg])