Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.51.8.4 -r1.51.8.5
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	17 Sep 2013 22:21:36 -0000	1.51.8.4
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	2 Oct 2013 09:10:21 -0000	1.51.8.5
@@ -650,7 +650,7 @@
             if { [llength $value_array_list] > 0 } {
                 # A substitution list is provided, the key should be in there
                 
-                if { [lsearch -exact $value_array_keys $variable_string] == -1 } {
+                if {$variable_string ni $value_array_keys} {
                     ns_log Warning "lang::message::format: The value_array_list \"$value_array_list\" does not contain the variable name $variable_string found in the message: $localized_message"
                     
                     # There is no value available to do the substitution with