--- a/gameServer/HWProtoLobbyState.hs	Fri Mar 27 14:02:27 2009 +0000
+++ b/gameServer/HWProtoLobbyState.hs	Fri Mar 27 15:58:54 2009 +0000
@@ -137,4 +137,13 @@
 		client = clients IntMap.! clID
 
 
+handleCmd_lobby clID clients rooms ["SET_SERVER_MESSAGE", newMessage] =
+	if not $ isAdministrator client then
+		[]
+	else
+		[ModifyServerInfo (\si -> si{serverMessage = newMessage})]
+	where
+		client = clients IntMap.! clID
+
+
 handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"]