--- a/gameServer/HWProtoLobbyState.hs	Wed Jul 02 11:40:57 2014 -0400
+++ b/gameServer/HWProtoLobbyState.hs	Wed Jul 02 23:55:00 2014 +0400
@@ -83,7 +83,7 @@
             else
             (
                 MoveToRoom jRI
-                : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom})
+                : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom, teamsInGame = fromIntegral $ length clTeams})
                 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl]
                 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks]
             )