Index: openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl	26 Oct 2005 12:00:37 -0000	1.7
+++ openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl	2 Dec 2005 14:27:38 -0000	1.8
@@ -325,7 +325,7 @@
 	and p.customer_id = :organization_id
     }]
 
-    if {[lsearch $group_ids $group_id] >-1 && $!already_offer_p} {
+    if {[lsearch $group_ids $group_id] >-1 && !$already_offer_p} {
 	# Create the new project and credit offer
 	foreach package_id [apm_package_id_from_key invoices] {
 	    iv::offer::new_credit -organization_id $organization_id -package_id $package_id