--- a/gameServer/HWProtoInRoomState.hs	Tue Feb 28 21:25:36 2012 -0500
+++ b/gameServer/HWProtoInRoomState.hs	Wed Feb 29 23:44:49 2012 +0400
@@ -210,6 +210,7 @@
     cl <- thisClient
     rm <- thisRoom
     chans <- roomClientsChans
+    let clTeams = map teamname . filter (\t -> teamowner t == nick cl) . teams $ rm
 
     if isJust $ gameInfo rm then
         if isMaster cl && isCorrect then
@@ -224,7 +225,7 @@
                 : UnreadyRoomClients
                 : answerRemovedTeams chans rm
             else if not isCorrect then
-                return [RemoveClientTeams clId]
+                return $ map SendTeamRemovalMessage clTeams
                 else
                 return []
         else