--- a/gameServer/HandlerUtils.hs	Wed Jun 23 22:13:12 2010 +0400
+++ b/gameServer/HandlerUtils.hs	Wed Jun 23 22:17:27 2010 +0400
@@ -19,7 +19,7 @@
 roomOthersChans = do
     (ci, rnc) <- ask
     let ri = clientRoom rnc ci
-    return $ map (sendChan . client rnc) (roomClients rnc ri)
+    return $ map (sendChan . client rnc) $ filter (/= ci) (roomClients rnc ri)
 
 thisClientChans :: Reader (ClientIndex, IRnC) [ClientChan]
 thisClientChans = do