--- a/gameServer/HWProtoLobbyState.hs	Sun Jul 18 03:55:56 2010 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Sun Jul 18 03:58:06 2010 +0200
@@ -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