Index: openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	27 Oct 2014 16:39:39 -0000	1.6
+++ openacs-4/packages/acs-lang/www/admin/message-usage-include.tcl	7 Aug 2017 23:47:57 -0000	1.7
@@ -21,7 +21,6 @@
     exec find $::acs::rootdir -type f -regex ".*\\.\\(info\\|adp\\|sql\\|tcl\\)" -follow | xargs egrep "$grepfor" 2>/dev/null
 } {
     #error "find $::acs::rootdir -type f -regex \".*\\.\\(info\\|adp\\|sql\\|tcl\\)\" -follow | xargs egrep \"${full_key_pattern}\""
-    global errorInfo
 
     foreach line [split $errmsg "\n"] {
         if { [string first "child process exited abnormally" $line] == -1 } {
@@ -33,3 +32,9 @@
         }
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: