--- a/gameServer/HWProtoLobbyState.hs	Tue Jun 22 22:40:49 2010 +0400
+++ b/gameServer/HWProtoLobbyState.hs	Wed Jun 23 22:13:12 2010 +0400
@@ -78,7 +78,7 @@
 handleCmd_lobby ["JOIN_ROOM", roomName, roomPassword] = do
     (ci, irnc) <- ask
     let ris = allRooms irnc
-    let cl =  irnc `client` ci
+    cl <- thisClient
     let maybeRI = find (\ri -> roomName == name (irnc `room` ri)) ris
     let jRI = fromJust maybeRI
     let jRoom = irnc `room` jRI