--- a/gameServer/HWProtoLobbyState.hs	Sat Jan 19 00:55:51 2013 +0400
+++ b/gameServer/HWProtoLobbyState.hs	Sat Jan 19 21:51:41 2013 +0400
@@ -203,5 +203,8 @@
     cl <- thisClient
     return [RestartServer | isAdministrator cl]
 
+handleCmd_lobby ["STATS"] = do
+    cl <- thisClient
+    return [Stats | isAdministrator cl]
 
 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"]