diff -r 3034605a4604 -r 27006953d901 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Fri Nov 15 14:41:36 2013 -0500
+++ b/gameServer/Actions.hs	Mon Nov 18 00:44:30 2013 +0400
@@ -242,7 +242,7 @@
 
     newRoom' <- io $ room'sM rnc id ri
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
-    processAction $ AnswerClients chans ("ROOM" : "UPD" : oldRoomName : roomInfo (nick newMaster) newRoom')
+    processAction $ AnswerClients chans ("ROOM" : "UPD" : oldRoomName : roomInfo proto(nick newMaster) newRoom')
 
 
 processAction (AddRoom roomName roomPassword) = do
@@ -265,7 +265,7 @@
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
 
     mapM_ processAction [
-      AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm{playersIn = 1})
+      AnswerClients chans ("ROOM" : "ADD" : roomInfo proto n rm{playersIn = 1})
         ]
 
 
@@ -294,7 +294,7 @@
     rm <- io $ room'sM rnc id ri
     n <- io $ client'sM rnc nick (masterID rm)
     chans <- liftM (map sendChan) $! sameProtoClientsS proto
-    processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo n rm)
+    processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo proto n rm)
 
 
 processAction UnreadyRoomClients = do