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 -r1.3 -r1.4
--- openacs-4/packages/chat/tcl/chat-procs.tcl	1 Nov 2003 08:45:37 -0000	1.3
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	11 Dec 2003 21:40:00 -0000	1.4
@@ -506,7 +506,7 @@
             returning contents into :1
 	} -clobs [list $contents]
     } on_error {
-	ad_return_complaint "Insert fail" $errmsg
+	ad_return_complaint 1 "Insert fail: $errmsg"
     }
 
     return $transcript_id