--- a/gameServer/Actions.hs	Sat Feb 05 11:05:16 2011 +0300
+++ b/gameServer/Actions.hs	Sat Feb 05 11:32:15 2011 +0300
@@ -16,6 +16,7 @@
 import Control.DeepSeq
 import Data.Time
 import Text.Printf
+import Data.Unique
 -----------------------------
 import CoreTypes
 import Utils
@@ -308,8 +309,9 @@
     (Just ci) <- gets clientIndex
     n <- client's nick
     h <- client's host
+    uid <- client's clUID
     db <- gets (dbQueries . serverInfo)
-    io $ writeChan db $ CheckAccount ci n h
+    io $ writeChan db $ CheckAccount ci (hashUnique uid) n h
     return ()