--- a/gameServer/HWProtoNEState.hs	Sun Jan 26 02:17:04 2014 +0400
+++ b/gameServer/HWProtoNEState.hs	Sun Jan 26 10:20:42 2014 +0400
@@ -58,10 +58,10 @@
     let serverHash = h [serverSalt cl, clientSalt, webPassword cl, showB $ clientProto cl, "!hedgewars"]
 
     if passwd == clientHash then
-        return $
+        return [
             AnswerClients [sendChan cl] ["SERVER_AUTH", serverHash] 
-            : JoinLobby
-            : [AnswerClients [sendChan cl] ["ADMIN_ACCESS"] | isAdministrator cl]
+            , JoinLobby
+            ]
         else
         return [ByeClient "Authentication failed"]
     where