Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.36.2.25 -r1.36.2.26
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 May 2016 21:08:06 -0000	1.36.2.25
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	25 May 2016 07:39:28 -0000	1.36.2.26
@@ -1175,7 +1175,7 @@
         #
         # Add safety belt to prevent recursive loop
         #
-        if {[incr __ad_complain_depth] < 10} {
+        if {[incr ::__ad_complain_depth] < 10} {
             
             if { [info exists return_errors] } {
                 upvar 1 $return_errors error_list
@@ -1191,7 +1191,7 @@
                                                [list prev_url [get_referrer]] \
                                               ] "/packages/acs-tcl/lib/complain"]
                 } errorMsg]} {
-                    ad_log error "problem rendering complain page: $errorMsg"
+                    ad_log error "problem rendering complain page: $errorMsg ($::errorCode)"
                     set html "Invalid input"
                 }
                 ns_return 422 text/html $html