Index: openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs.tcl	10 Dec 2002 20:06:33 -0000	1.6
+++ openacs-4/packages/ecommerce/tcl/ecommerce-credit-procs.tcl	15 Nov 2003 06:48:11 -0000	1.7
@@ -51,7 +51,7 @@
     # PaymentGateway.
 
     if {[empty_string_p $payment_gateway] || ![acs_sc_binding_exists_p "PaymentGateway" $payment_gateway]} {
-	set outcome(response_code) "failure"
+	set outcome(response_code) "failed_authorization"
 	set outcome(transaction_id) "$transaction_id"
 	return [array get outcome]
     }