Index: openacs-4/packages/invoices/www/invoice-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-ae.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/invoices/www/invoice-ae.tcl	27 Oct 2005 17:24:39 -0000	1.10
+++ openacs-4/packages/invoices/www/invoice-ae.tcl	27 Oct 2005 18:11:24 -0000	1.11
@@ -305,6 +305,7 @@
 				    -vat_percent $vat_percent \
 				    -vat $vat]
 
+	set invoice_id [content::revision::item_id -revision_id $new_invoice_rev_id]
 	if {[exists_and_not_null category_ids]} {
 	    category::map_object -object_id $new_invoice_rev_id $category_ids
 	}