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 -r1.1.2.10 -r1.1.2.11
--- openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	17 Mar 2020 14:06:38 -0000	1.1.2.10
+++ openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	17 Mar 2020 14:14:36 -0000	1.1.2.11
@@ -298,8 +298,8 @@
     } {
         Creates a new transcript of all current chat room messages.
 
-        @return transcript_id of the new transcript or the empty
-                string when no messages were in the chat room.
+        @return transcript_id of the new transcript or 0 when no
+                messages were in the chat room.
     } {
         if {![info exists pretty_name]} {
             set today [clock format [clock seconds] -format "%d.%m.%Y"]
@@ -324,6 +324,8 @@
                        -contents [join $contents \n]]
             $t save_new
             return [$t set transcript_id]
+        } else {
+            return 0
         }
     }