Index: openacs-4/packages/acs-lang/bin/check-catalog.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/bin/check-catalog.sh,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-lang/bin/check-catalog.sh	16 Oct 2003 14:05:50 -0000	1.15
+++ openacs-4/packages/acs-lang/bin/check-catalog.sh	16 Oct 2003 15:35:25 -0000	1.16
@@ -119,7 +119,8 @@
     message_key_pattern=$(get_message_key_pattern)
     # We are using the widest possible regexp here that could in rare cases lead to false alarms
     # However, that's better than risk removing keys used in tcl scripts
-    for tcl_message_key in $(find $packages_dir -iname '*.tcl'|xargs ${script_path}/mygrep "(?:\[_ .*|\[lang::message::lookup.*|\#)${package_key}\.($message_key_pattern)")
+    for tcl_message_key in $(find $packages_dir -iname '*.tcl'|xargs ${script_path}/mygrep \
+    "(?:\[_\s+[{\"]?${package_key}|\[lang::message::lookup.*${package_key}|\#${package_key})\.($message_key_pattern)")
     do        
         check_one_key_in_catalog_file $tcl_message_key $package_key
     done