Index: openacs-4/packages/acs-developer-support/www/shell.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/shell.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-developer-support/www/shell.tcl	27 Oct 2014 16:39:34 -0000	1.7
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	18 Aug 2015 12:29:50 -0000	1.7.2.1
@@ -29,8 +29,7 @@
         set out "You cannot use GET to invoke a script on this page.\nClick OK to resubmit the form as a POST."
     } else {
         if {[catch {set out [uplevel 1 [string map {"\\\r\n" " "} $script]]}]} {
-            global errorInfo
-            set out "ERROR:\n$errorInfo"
+            set out "ERROR:\n$::errorInfo"
         }
     }
 }