--- a/gameServer/OfficialServer/GameReplayStore.hs	Tue Jan 28 09:09:31 2014 -0500
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Tue Jan 28 22:29:21 2014 +0400
@@ -52,7 +52,7 @@
     where
         loadFile :: String -> IO (Maybe CheckInfo, [B.ByteString])
         loadFile fileName = E.handle (\(e :: SomeException) ->
-                    warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return (Nothing, [])) $ do
+                    warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return (Just $ CheckInfo fileName [], [])) $ do
             (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName
             return $ (
                 Just (CheckInfo fileName teams)