--- 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

--- a/gameServer/OfficialServer/extdbinterface.hs	Wed Aug 28 23:44:27 2013 +0400
+++ b/gameServer/OfficialServer/extdbinterface.hs	Thu Aug 29 10:06:19 2013 +0400
@@ -41,7 +41,7 @@
                 result <- fetchRow statement
                 finish statement
                 let response =
-                        if isJust result then let [pass, adm, contr] = fromJust $ result
+                        if isJust result then let [pass, adm, contr] = fromJust result in
                         (
                             clId,
                             clUid,