Index: openacs-4/packages/acs-lang/www/admin/lookups-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/lookups-include.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-lang/www/admin/lookups-include.tcl	27 Oct 2014 16:39:39 -0000	1.4
+++ openacs-4/packages/acs-lang/www/admin/lookups-include.tcl	7 Aug 2017 23:47:57 -0000	1.5
@@ -4,8 +4,13 @@
 
 set message_key_context ""
 if { [catch {set message_key_context [exec find $::acs::rootdir -type f -regex ".*\\.\\(info\\|adp\\|sql\\|tcl\\)" | xargs egrep "${full_key_pattern}"]} error] } {
-    global errorInfo
-    regexp "^(.*)child process exited abnormally" $errorInfo match message_key_context
-    set message_key_context [ad_quotehtml $message_key_context]
+    regexp "^(.*)child process exited abnormally" $::errorInfo match message_key_context
+    set message_key_context [ns_quotehtml $message_key_context]
     regsub -all "${full_key_pattern}" $message_key_context {<b>\0</b>} message_key_context
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: