Index: openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	27 Oct 2014 16:40:05 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	7 Aug 2017 23:47:59 -0000	1.4
@@ -179,14 +179,11 @@
 
     set errno [catch { doc_eval_in_separate_frame $compiled_adp } error]
     incr doc_adp_depth -1
-
-    global errorCode
-    if { $errno == 0 || $errorCode eq "doc_adp_abort" } {
+    if { $errno == 0 || $::errorCode eq "doc_adp_abort" } {
 	return $adp_var
     }
 
-    global errorInfo
-    return -code $errno -errorcode $errorCode -errorinfo $errorInfo $error
+    return -code $errno -errorcode $::errorCode -errorinfo $::errorInfo $error
 }
 
 ad_proc -public doc_adp_puts { value } {
@@ -408,3 +405,9 @@
 
     return $code
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: