Index: openacs-4/packages/acs-lang/tcl/lang-audit-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-audit-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/tcl/lang-audit-procs.tcl	21 Jan 2003 18:46:53 -0000	1.2
+++ openacs-4/packages/acs-lang/tcl/lang-audit-procs.tcl	11 Aug 2003 16:16:21 -0000	1.3
@@ -15,17 +15,15 @@
         package_key
         message_key
         locale
+        comment
     } {
       Save a message that is overwritten.
       @author Peter Marklund
     } {
         # Save the old message in the audit table
         set overwrite_user [ad_conn user_id]
-        db_dml lang_message_audit {
-          insert into lang_messages_audit (package_key, message_key, locale, message, overwrite_user) 
-            values (:package_key, :message_key, :locale, empty_clob(), :overwrite_user) 
-          returning message into :1
-        } -clobs [list $old_message]
+
+        db_dml lang_message_audit {} -clobs [list $old_message $comment]
     }    
 
     ad_proc -public created_message {