Index: openacs-4/packages/chat/www/transcript-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.tcl,v
diff -u -N -r1.6.4.1 -r1.6.4.2
--- openacs-4/packages/chat/www/transcript-delete.tcl	20 Jun 2016 08:40:23 -0000	1.6.4.1
+++ openacs-4/packages/chat/www/transcript-delete.tcl	23 Nov 2016 19:51:16 -0000	1.6.4.2
@@ -16,5 +16,10 @@
 
 permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete
 
+set transcript_name [db_string query {
+    select pretty_name from chat_transcripts
+    where transcript_id = :transcript_id
+}]
+
 set context [list "[_ chat.Delete_transcript]"]
 ad_return_template