--- a/gameServer/OfficialServer/GameReplayStore.hs	Mon Feb 18 00:28:09 2013 +0400
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Mon Feb 18 00:31:16 2013 +0400
@@ -56,8 +56,10 @@
                 )
 
 moveFailedRecord :: String -> IO ()
-moveFailedRecord fn = renameFile fn ("failed/" ++ drop 8 fn)
+moveFailedRecord fn = E.handle (\(e :: SomeException) -> warningM "REPLAYS" $ show e) $
+    renameFile fn ("failed/" ++ drop 8 fn)
 
 
 moveCheckedRecord :: String -> IO ()
-moveCheckedRecord fn = renameFile fn ("checked/" ++ drop 8 fn)
+moveCheckedRecord fn = E.handle (\(e :: SomeException) -> warningM "REPLAYS" $ show e) $
+    renameFile fn ("checked/" ++ drop 8 fn)