--- a/gameServer/HWProtoCore.hs	Fri Sep 23 09:58:41 2011 +0200
+++ b/gameServer/HWProtoCore.hs	Sat Sep 24 00:00:57 2011 +0400
@@ -52,7 +52,7 @@
     let roomMasterSign = if isMaster cl then "@" else ""
     let adminSign = if isAdministrator cl then "@" else ""
     let roomInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
-    let roomStatus = if gameinprogress clRoom then
+    let roomStatus = if isJust $ gameInfo clRoom then
             if teamsInGame cl > 0 then "(playing)" else "(spectating)"
             else
             ""