diff -r 0b03ac28212d -r 4006d77e1a28 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Nov 03 19:16:41 2012 +0100
+++ b/gameServer/Actions.hs	Sat Nov 03 23:28:42 2012 +0400
@@ -299,7 +299,7 @@
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
 
     mapM_ processAction [
-        AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm)
+      AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm{playersIn = 1})
         ]