Index: openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/xotcl-chat-procs.tcl,v
diff -u -N -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	5 Mar 2019 12:11:14 -0000	1.1.2.4
+++ openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	15 Mar 2019 16:11:10 -0000	1.1.2.5
@@ -246,6 +246,7 @@
             if {[llength $contents] > 0} {
                 set today [clock format [clock seconds] -format "%d.%m.%Y"]
                 set t [::xo::db::chat_transcript new \
+                           -creation_user ${:creation_user} \
                            -pretty_name "#chat.transcript_of_date# $today" \
                            -description "#chat.automatically_created_transcript#" \
                            -room_id ${:room_id} \