diff -r 08b9c28419f1 -r b44fbb630fb6 netserver/HWProto.hs --- a/netserver/HWProto.hs Fri Oct 24 13:03:06 2008 +0000 +++ b/netserver/HWProto.hs Fri Oct 24 14:28:47 2008 +0000 @@ -128,7 +128,7 @@ if haveSameRoom then (noChangeClients, noChangeRooms, answerRoomExists) else - (modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, answerJoined $ nick client) + (modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, (answerJoined $ nick client) ++ (answerNotReady $ nick client)) where haveSameRoom = isJust $ find (\room -> newRoom == name room) rooms