--- a/gameServer/HWProtoInRoomState.hs	Tue Jun 05 22:37:36 2012 +0200
+++ b/gameServer/HWProtoInRoomState.hs	Mon Jun 25 10:44:27 2012 +0200
@@ -158,8 +158,8 @@
     cl <- thisClient
     chans <- roomClientsChans
     return [
+        ModifyRoom (\r -> r{readyPlayers = readyPlayers r + (if isReady cl then -1 else 1)}),
         ModifyClient (\c -> c{isReady = not $ isReady cl}),
-        ModifyRoom (\r -> r{readyPlayers = readyPlayers r + (if isReady cl then -1 else 1)}),
         AnswerClients chans $ if clientProto cl < 38 then
                 [if isReady cl then "NOT_READY" else "READY", nick cl]
                 else