diff -r 0f5961910e27 -r f0a8ac191839 gameServer/HandlerUtils.hs --- 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