--- a/gameServer/HWProtoLobbyState.hs	Thu Jul 15 04:31:25 2010 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Sat Jul 17 23:44:42 2010 +0400
@@ -54,8 +54,7 @@
     | illegalName newRoom = return [Warning "Illegal room name"]
     | otherwise = do
         rs <- allRoomInfos
-        (ci, irnc) <- ask
-        let cl =  irnc `client` ci
+        cl <- thisClient
         return $ if isJust $ find (\room -> newRoom == name room) rs then 
             [Warning "Room exists"]
             else