--- a/gameServer/HWProtoChecker.hs	Thu Aug 29 12:02:16 2013 +0400
+++ b/gameServer/HWProtoChecker.hs	Thu Aug 29 12:12:19 2013 +0400
@@ -18,7 +18,7 @@
     if not isChecking then
         return []
         else
-        return [CheckFailed msg, ModifyClient $ \c -> c{isReady = False, checkInfo = Nothing}]
+        return [CheckFailed msg, ModifyClient $ \c -> c{checkInfo = Nothing}]
 
 
 handleCmd_checker ("CHECKED" : "OK" : info) = do
@@ -26,6 +26,6 @@
     if not isChecking then
         return []
         else
-        return [CheckSuccess info, ModifyClient $ \c -> c{isReady = False, checkInfo = Nothing}]
+        return [CheckSuccess info, ModifyClient $ \c -> c{checkInfo = Nothing}]
 
 handleCmd_checker _ = return [ProtocolError "Unknown command"]