diff -r c72d37d4eb4e -r a8dcdeb88a43 netserver/HWProto.hs
--- a/netserver/HWProto.hs	Tue Oct 14 14:35:52 2008 +0000
+++ b/netserver/HWProto.hs	Wed Oct 15 11:50:16 2008 +0000
@@ -122,7 +122,7 @@
 	else if roomPassword /= password clRoom then
 		(noChangeClients, noChangeRooms, answerWrongPassword)
 	else
-		(modifyClient client{room = roomName}, noChangeRooms, (answerJoined $ nick client) ++ answerNicks ++ answerFullConfig clRoom ++ answerAllTeams clRoom)
+		(modifyClient client{room = roomName}, noChangeRooms, answerNicks ++ (answerJoined $ nick client) ++ answerFullConfig clRoom ++ answerAllTeams clRoom)
 	where
 		noSuchRoom = isNothing $ find (\room -> roomName == name room) rooms
 		answerNicks = [(clientOnly, ["JOINED"] ++ (map nick $ filter (\ci -> room ci == roomName) clients))]