Index: openacs-4/packages/chat/www/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete.tcl,v
diff -u -N -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/chat/www/message-delete.tcl	14 Feb 2019 16:15:01 -0000	1.8.2.1
+++ openacs-4/packages/chat/www/message-delete.tcl	2 Mar 2019 17:51:10 -0000	1.8.2.2
@@ -18,9 +18,10 @@
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Delete_messages]"]
 
-set pretty_name [chat_room_name $room_id]
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set pretty_name [$r set pretty_name]
 
-set message_count [chat_message_count $room_id]
+set message_count [$r count_messages]
 
 ad_return_template