--- a/gameServer/HandlerUtils.hs	Tue Aug 27 17:22:07 2013 +0400
+++ b/gameServer/HandlerUtils.hs	Wed Aug 28 23:11:05 2013 +0400
@@ -64,5 +64,5 @@
 clientByNick n = do
     (_, rnc) <- ask
     let allClientIDs = allClients rnc
-    return $ find (\clId -> n == nick (client rnc clId)) allClientIDs
+    return $ find (\clId -> let cl = client rnc clId in n == nick cl && not (isChecker cl)) allClientIDs