--- a/netserver/Miscutils.hs	Wed Oct 22 21:34:03 2008 +0000
+++ b/netserver/Miscutils.hs	Wed Oct 22 21:41:00 2008 +0000
@@ -115,7 +115,7 @@
 	if name room == name rm then
 		room : rms
 	else
-		room : modifyRoom room rms
+		rm : modifyRoom room rms
 
 modifyTeam :: RoomInfo -> TeamInfo -> RoomInfo
 modifyTeam room team = room{teams = replaceTeam team $ teams room}