--- a/gameServer/Actions.hs	Fri Feb 08 00:27:07 2013 +0400
+++ b/gameServer/Actions.hs	Fri Feb 08 23:38:14 2013 +0400
@@ -675,8 +675,8 @@
 
 processAction CheckRecord = do
     p <- client's clientProto
-    c <- client's clChan
-    l <- loadReplay p
+    c <- client's sendChan
+    l <- io $ loadReplay (fromIntegral p)
     when (not $ null l) $
         processAction $ AnswerClients [c] ("REPLAY" : l)