Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.18 -r1.18.2.1
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	27 Oct 2014 16:39:38 -0000	1.18
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	18 Aug 2015 12:31:30 -0000	1.18.2.1
@@ -765,9 +765,7 @@
         
     } {
         parameter::set_value -parameter UsePackageLevelLocalesP -package_id [apm_package_id_from_key "acs-lang"] -value $use_package_level_locales_p_org
-        
-        global errorInfo
-        error $errmsg $errorInfo
+        error $errmsg $::errorInfo
     }
 
     parameter::set_value -parameter UsePackageLevelLocalesP -package_id [apm_package_id_from_key "acs-lang"] -value $use_package_level_locales_p_org
@@ -902,8 +900,7 @@
 
         if { $error_p } {
             # rethrow the error
-            global errorInfo
-            error $errmsg $errorInfo
+            error $errmsg $::errorInfo
         }
     }
 }
@@ -967,8 +964,7 @@
             $gb_message
     } {
         set error_p 1
-        global errorInfo
-        set saved_errorInfo $errorInfo
+        set saved_errorInfo $::errorInfo
     }
 
     # Clean up