--- a/gameServer/Actions.hs	Wed Feb 29 18:30:37 2012 -0500
+++ b/gameServer/Actions.hs	Thu Mar 01 23:35:13 2012 +0400
@@ -311,6 +311,7 @@
         AnswerClients chans ["EM", rmTeamMsg],
         ModifyRoom (\r -> r{
                 gameInfo = liftM (\g -> g{
+                teamsInGameNumber = teamsInGameNumber g - 1,
                 roundMsgs = roundMsgs g Seq.|> rmTeamMsg
                 }) $ gameInfo r
             })