--- a/gameServer/Store.hs	Sat Jun 26 16:58:19 2010 +0400
+++ b/gameServer/Store.hs	Sun Jun 27 21:06:41 2010 +0400
@@ -24,7 +24,7 @@
 
 
 newtype ElemIndex = ElemIndex Int
-    deriving (Eq, Show, Read)
+    deriving (Eq, Show, Read, Ord)
 newtype MStore e = MStore (IORef (IntSet.IntSet, IntSet.IntSet, IOA.IOArray Int e))
 newtype IStore e = IStore (IntSet.IntSet, IA.Array Int e)
 
@@ -105,7 +105,7 @@
 m2i :: MStore e -> IO (IStore e)
 m2i (MStore ref) = do
     (a, _, c') <- readIORef ref 
-    c <- IOA.unsafeFreeze c'
+    c <- IOA.freeze c'
     return $ IStore (a, c)