Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl,v
diff -u -N -r1.10 -r1.10.10.1
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	4 Mar 2008 13:08:37 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	17 Aug 2015 17:45:03 -0000	1.10.10.1
@@ -110,8 +110,7 @@
         ns_getcsv $csv_stream headers
     }
 
-    # provide access to errorInfo and errorCode
-    global errorInfo errorCode
+    # provide access to errorCode
 
     # Upvar Magic!
     upvar 1 $array_name row_array
@@ -143,8 +142,8 @@
 	# (source: http://wiki.tcl.tk/unless last case)
 	switch -exact -- $errno {
 	    0   {}
-	    1   {return -code error -errorinfo $errorInfo \
-		     -errorcode $errorCode $error}
+	    1   {return -code error -errorinfo $::errorInfo \
+		     -errorcode $::errorCode $error}
 	    2   {return $error}
 	    3   {break}
 	    4   {}