--- a/gameServer/HWProtoChecker.hs	Fri Oct 11 11:55:31 2013 +0200
+++ b/gameServer/HWProtoChecker.hs	Fri Oct 11 17:43:13 2013 +0200
@@ -11,7 +11,7 @@
 
 handleCmd_checker :: CmdHandler
 
-handleCmd_checker ["READY"] = return [CheckRecord]
+handleCmd_checker ["READY"] = return [ModifyClient $ \c -> c{isReady = True}, CheckRecord]
 
 handleCmd_checker ["CHECKED", "FAIL", msg] = do
     isChecking <- liftM (isJust . checkInfo) thisClient