Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	29 Oct 2002 08:06:31 -0000	1.9
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	29 Oct 2002 13:15:31 -0000	1.10
@@ -475,12 +475,13 @@
                 regsub -all {@[a-zA-Z0-9_\.]+@} $text "" text_wo_variables
     
                 # make sure the string is not empty, doesn't contain all spaces, is at least one character long,
-                # contains alphabetical characters, doesn't contain all   
+                # contains alphabetical characters, doesn't contain all  , and isn't an adp message lookup 
                 if {![empty_string_p $text] 
                     && ![string is space $text_wo_variables] 
                     && [string length $text] > 1
                     && [string match -nocase {*[A-Z]*} $text]
                     && ![regexp {(?:\s* \s*)+} $text_wo_variables match]
+                    && ![regexp {^\s*#[a-zA-Z\._-]+#\s*$} $text_wo_variables match]
                 } {
                     # Peter: texts with a hash or curly brace used to be excluded, my thinking
                     # is it's better to include those texts and let the user say if they should