--- a/gameServer/Actions.hs	Thu Aug 29 11:48:02 2013 +0400
+++ b/gameServer/Actions.hs	Thu Aug 29 12:02:16 2013 +0400
@@ -665,9 +665,11 @@
         allci <- allClientsM rnc
         filterM (client'sM rnc isReadyChecker) allci
 
-    when (not $ null readyCheckersIds)
-        $ withStateT (\s -> s{clientIndex = Just $ head readyCheckersIds})
+    when (not $ null readyCheckersIds) $ do
+        oldci <- gets clientIndex
+        withStateT (\s -> s{clientIndex = Just $ head readyCheckersIds})
             $ processAction CheckRecord
+        modify (\s -> s{clientIndex = oldci})
     where
         isReadyChecker cl = isChecker cl && isReady cl