--- a/gameServer/OfficialServer/checker.hs	Sat Feb 02 22:57:05 2013 +0400
+++ b/gameServer/OfficialServer/checker.hs	Mon Feb 04 00:13:55 2013 +0400
@@ -72,7 +72,9 @@
         debugM "Network" $ "Send: " ++ show p
         sendAll s $ B.unlines p `B.snoc` '\n'
     onPacket :: [B.ByteString] -> IO ()
-    onPacket ("CONNECTED":_) = answer ["CHECKER", protocolNumber, l, p]
+    onPacket ("CONNECTED":_) = do
+        answer ["CHECKER", protocolNumber, l, p]
+        answer ["READY"]
     onPacket ["PING"] = answer ["PONG"]
     onPacket ("BYE" : xs) = error $ show xs
     onPacket _ = return ()