--- a/gameServer/OfficialServer/GameReplayStore.hs	Wed Jan 22 14:45:33 2014 +0400
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Wed Jan 22 14:50:50 2014 +0400
@@ -12,6 +12,7 @@
 import Data.List
 import qualified Data.ByteString as B
 import System.Directory
+import Control.DeepSeq
 ---------------
 import CoreTypes
 import EngineInteraction
@@ -55,7 +56,7 @@
             (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName
             return $ (
                 Just (CheckInfo fileName teams)
-                , replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs)
+                , let d = replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs) in d `deepseq` d
                 )
 
 moveFailedRecord :: String -> IO ()