--- a/gameServer/ServerCore.hs	Sat Feb 05 11:05:16 2011 +0300
+++ b/gameServer/ServerCore.hs	Sat Feb 05 11:32:15 2011 +0300
@@ -9,6 +9,7 @@
 import Data.Set as Set
 import qualified Data.ByteString.Char8 as B
 import Control.DeepSeq
+import Data.Unique
 --------------------------------------
 import CoreTypes
 import NetRoutines
@@ -57,13 +58,14 @@
                 --debugM "Clients" "Message from dead client"
                 --return (serverInfo, rnc)
 
-        ClientAccountInfo (ci, info) -> do
+        ClientAccountInfo ci uid info -> do
             rnc <- gets roomsClients
             exists <- liftIO $ clientExists rnc ci
             when (exists) $ do
                 as <- get
                 put $! as{clientIndex = Just ci}
-                processAction (ProcessAccountInfo info)
+                uid' <- client's clUID
+                when (uid == (hashUnique uid')) $ processAction (ProcessAccountInfo info)
                 return ()
 
         TimerAction tick ->