Index: openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl	21 Dec 2003 19:47:51 -0000	1.3
+++ openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl	10 Dec 2005 19:20:29 -0000	1.3.2.1
@@ -844,7 +844,7 @@
 	ns_log Notice "Response from $authorize_url exceeds database field length. Trimming response '$response' to 400 characters."
 	set response [string range $response 0 399]
     }
-    if {[string length $response] > 100} {
+    if {[string length $response_reason_text] > 100} {
 	ns_log Notice "Response reason text from $authorize_url exceeds database field length. Trimming response reason text '$response_reason_text' to 100 characters."
 	set response_reason_text [string range $response_reason_text 0 99]
     }