Index: openacs-4/packages/chat/www/moderator-revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/moderator-revoke.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/moderator-revoke.tcl	7 Aug 2017 23:48:07 -0000	1.6
+++ openacs-4/packages/chat/www/moderator-revoke.tcl	18 Jun 2018 14:25:09 -0000	1.7
@@ -15,8 +15,7 @@
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Revoke_moderator]"]
 
-set party_pretty_name [db_string get_party_name {}]
+set party_pretty_name [acs_user::get_element \
+                           -user_id $party_id -element "name"]
 
 set pretty_name [chat_room_name $room_id]
-
-ad_return_template
\ No newline at end of file