Index: openacs-4/packages/invoices/tcl/invoice-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/invoice-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/invoices/tcl/invoice-procs.tcl	3 May 2006 05:52:35 -0000	1.23
+++ openacs-4/packages/invoices/tcl/invoice-procs.tcl	29 Jun 2006 14:46:45 -0000	1.24
@@ -36,8 +36,9 @@
     }
     set folder_id [content::folder::get_folder_from_package -package_id $package_id]
 
+    set item_id [db_nextval t_acs_object_id_seq]
+
     db_transaction {
-	set item_id [db_nextval acs_object_id_seq]
 	if {[empty_string_p $name]} {
 	    set name "iv_invoice_$item_id"
 	}