--- a/gameServer/HWProtoLobbyState.hs	Fri Nov 15 14:41:36 2013 -0500
+++ b/gameServer/HWProtoLobbyState.hs	Mon Nov 18 00:44:30 2013 +0400
@@ -21,7 +21,7 @@
     (ci, irnc) <- ask
     let cl = irnc `client` ci
     rooms <- allRoomInfos
-    let roomsInfoList = concatMap (\r -> roomInfo (nick $ irnc `client` masterID r) r) . filter (\r -> (roomProto r == clientProto cl))
+    let roomsInfoList = concatMap (\r -> roomInfo (clientProto cl) (nick $ irnc `client` masterID r) r) . filter (\r -> (roomProto r == clientProto cl))
     return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)]