Index: openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl,v
diff -u -r1.1.2.20 -r1.1.2.21
--- openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	29 Mar 2023 15:33:33 -0000	1.1.2.20
+++ openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	24 Aug 2024 13:54:07 -0000	1.1.2.21
@@ -329,7 +329,7 @@
 
         set contents [:transcript_messages]
         if {[llength $contents] > 0} {
-            set t [::xo::db::chat_transcript new \
+            set t [::xo::db::chat_transcript new -volatile \
                        -creation_user $creation_user \
                        -creation_ip $creation_ip \
                        -pretty_name $pretty_name \
@@ -338,7 +338,7 @@
                        -room_id ${:room_id} \
                        -contents [join $contents \n]]
             $t save_new
-            return [$t set transcript_id]
+            return [$t transcript_id]
         } else {
             return 0
         }