Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.140 -r1.140.2.1
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	27 Jun 2015 17:32:40 -0000	1.140
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Aug 2015 17:45:04 -0000	1.140.2.1
@@ -1320,12 +1320,11 @@
     execute the on_error block.
 } { 
     upvar 1 $error_var $error_var 
-    global errorInfo errorCode 
     if { [catch { uplevel $body } $error_var] } { 
         set code [catch {uplevel $on_error} string] 
         # Return out of the caller appropriately. 
         if { $code == 1 } { 
-            return -code error -errorinfo $errorInfo -errorcode $errorCode $string 
+            return -code error -errorinfo $::errorInfo -errorcode $::errorCode $string 
         } elseif { $code == 2 } { 
             return -code return $string 
         } elseif { $code == 3 } { 
@@ -3580,14 +3579,13 @@
         set errinfo {}
         set errcode {}
         if { \$errno == 1 } {
-            global errorInfo errorCode
-            set errinfo \$errorInfo
-            set errcode \$errorCode
+            set errinfo \$::errorInfo
+            set errcode \$::errorCode
         }
 
         if { \$errno == 1 } {
             \# This is an error
-            ns_log Error \"util_background_exec: Error in thread named '$name': \$errorInfo\"
+            ns_log Error \"util_background_exec: Error in thread named '$name': \$::errorInfo\"
         }
 
         \# errno = 0 (TCL_OK) or 2 (TCL_RETURN) is considered normal, i.e. first elm is true