Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -N -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/chat/tcl/chat-procs.tcl	7 Apr 2006 16:59:52 -0000	1.5.2.2
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	11 Apr 2006 07:12:46 -0000	1.5.2.3
@@ -435,7 +435,10 @@
 
     db_transaction {
         set transcript_id [db_exec_plsql create_transcript {}]
-        db_exec_plsql grant_permission {}
+	if { $transcript_id ne 0 } {
+	    db_dml update_contents {}
+	    db_exec_plsql grant_permission {}
+	}
     }
 
     return $transcript_id
@@ -459,6 +462,7 @@
     Edit chat transcript.
 } {
     db_exec_plsql edit_transcript {}
+    db_dml update_contents {}
 }
 
 ad_proc -public chat_room_get {