Index: openacs-4/packages/chat/www/user-unban.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-unban.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/chat/www/user-unban.tcl	14 Feb 2019 16:15:01 -0000	1.7.2.1
+++ openacs-4/packages/chat/www/user-unban.tcl	2 Mar 2019 17:51:10 -0000	1.7.2.2
@@ -17,9 +17,9 @@
 
 set party_pretty_name [acs_object_name $party_id]
 
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set pretty_name [$r set pretty_name]
 
-set pretty_name [chat_room_name $room_id]
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 2