--- a/gameServer/HWProtoInRoomState.hs	Sun Feb 06 13:19:00 2011 +0100
+++ b/gameServer/HWProtoInRoomState.hs	Sun Feb 06 18:59:53 2011 +0300
@@ -186,8 +186,8 @@
     cl <- thisClient
     r <- thisRoom
     chans <- roomOthersChans
-    
-    if (teamsInGame cl > 0) && isLegal then
+
+    if (teamsInGame cl > 0) && (gameinprogress r) && isLegal then
         return $ (AnswerClients chans ["EM", msg]) : [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}) | not isKeepAlive]
         else
         return []