Index: openacs-4/packages/acs-subsite/www/shared/1pixel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/1pixel.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/shared/1pixel.tcl	27 Oct 2014 16:40:01 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/shared/1pixel.tcl	7 Aug 2017 23:47:59 -0000	1.7
@@ -31,7 +31,7 @@
     seek $file 0
     ns_writefp $file
     close $file
-    file delete $file_name
+    file delete -- $file_name
 
     set file [open [acs_package_root_dir "acs-subsite"]/www/shared/1pixel.footer]
     ns_writefp $file
@@ -41,7 +41,12 @@
     # Ignore simple i/o errors, which probably just mean that the user surfed on 
     # to some other page before we finished serving 
     if { ![string equal $errMsg {i/o failed}] } {
-        global errorInfo
-        ns_log Error "$errMsg\n$errorInfo"
+        ns_log Error "$errMsg\n$::errorInfo"
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: