Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl	8 Jun 2006 15:58:54 -0000	1.5.2.2
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-procs.tcl	23 Jun 2006 05:35:28 -0000	1.5.2.3
@@ -61,7 +61,7 @@
 	set object_id $context_id
     }
     
-
+    set log_id [db_nextval "acs_object_id_seq"]
     # First create the message entry 
     set log_id [db_exec_plsql insert_log_entry {select acs_mail_log__new (
 								     :log_id,