--- a/gameServer/OfficialServer/GameReplayStore.hs	Mon Sep 26 03:12:09 2011 +0200
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Mon Sep 26 21:45:33 2011 +0400
@@ -1,18 +1,23 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 module OfficialServer.GameReplayStore where
 
-import CoreTypes
 import Data.Time
 import Control.Exception as E
 import qualified Data.Map as Map
 import Data.Sequence()
 import System.Log.Logger
 import Data.Maybe
+import Data.Unique
+import Control.Monad
+---------------
+import CoreTypes
+
 
 saveReplay :: RoomInfo -> IO ()
 saveReplay r = do
     time <- getCurrentTime
-    let fileName = "replays/" ++ show time
+    u <- liftM hashUnique newUnique
+    let fileName = "replays/" ++ show time ++ "-" ++ show u
     let gi = fromJust $ gameInfo r
     let replayInfo = (teamsAtStart gi, Map.toList $ mapParams r, Map.toList $ params r, roundMsgs gi)
     E.catch