--- a/gameServer/Actions.hs	Wed Aug 28 23:44:27 2013 +0400
+++ b/gameServer/Actions.hs	Thu Aug 29 10:06:19 2013 +0400
@@ -659,12 +659,12 @@
     ri <- clientRoomA
     rnc <- gets roomsClients
 
-    allci <- io $ do
+    readyCheckersIds <- io $ do
         r <- room'sM rnc id ri
         saveReplay r
-        allClientsM rnc
+        allci <- allClientsM rnc
+        filterM (client'sM rnc isReadyChecker) allci
 
-    readyCheckersIds <- liftM (filter (client'sM isReadyChecker rnc)) allClientsS
     when (not $ null readyCheckersIds) $ do
         modify (\s -> s{clientIndex = Just $ head readyCheckersIds})
         processAction CheckRecord