--- a/gameServer/HWProtoInRoomState.hs	Thu Feb 21 22:31:03 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Thu Feb 21 22:43:00 2013 +0400
@@ -77,10 +77,11 @@
                 SendUpdateOnThisRoom,
                 ModifyClient (\c -> c{teamsInGame = teamsInGame c + 1, clientClan = Just teamColor}),
                 AnswerClients clChan ["TEAM_ACCEPTED", tName],
-                AnswerClients othChans $ teamToNet $ newTeam,
-                AnswerClients roomChans ["TEAM_COLOR", tName, teamColor],
                 ModifyClient $ \c -> c{actionsPending = actionsPending cl
-                    ++ [AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]]},
+                    ++ [AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]
+                        , AnswerClients othChans $ teamToNet $ newTeam
+                        , AnswerClients roomChans ["TEAM_COLOR", tName, teamColor]
+                    ]},
                 AnswerClients [sendChan cl] ["PING"]
                 ]
         where