--- a/gameServer/RoomsAndClients.hs	Sun Oct 10 12:53:16 2010 -0400
+++ b/gameServer/RoomsAndClients.hs	Sun Oct 10 21:32:18 2010 +0400
@@ -82,10 +82,10 @@
 
 
 roomAddClient :: ClientIndex -> Room r -> Room r
-roomAddClient cl room = room{roomClients' = cl : roomClients' room}
+roomAddClient cl room = let cls = cl : roomClients' room; nr = room{roomClients' = cls} in cls `seq` nr `seq` nr
 
 roomRemoveClient :: ClientIndex -> Room r -> Room r
-roomRemoveClient cl room = room{roomClients' = filter (/= cl) $ roomClients' room}
+roomRemoveClient cl room = let cls = filter (/= cl) $ roomClients' room; nr = room{roomClients' = cls} in cls `seq` nr `seq` nr
 
 
 addRoom :: MRoomsAndClients r c -> r -> IO RoomIndex