Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/logger/tcl/entry-procs.tcl	9 Oct 2006 20:27:24 -0000	1.11
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	15 Nov 2006 18:57:08 -0000	1.12
@@ -56,8 +56,12 @@
         set creation_user $party_id
     }
     
-    set entry_id [db_exec_plsql insert_entry {}]
+    if {$entry_id eq ""} {
+	set entry_id [db_nextval "acs_object_id_seq"]
+    }
 
+    db_exec_plsql insert_entry {}
+
     # The creator can admin his own entry
     permission::grant -party_id $creation_user -object_id $entry_id -privilege admin