Index: openacs-4/packages/acs-lang/lib/messages-to-translate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/lib/messages-to-translate.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	23 Oct 2003 09:56:41 -0000	1.6
+++ openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	10 Jan 2007 21:22:03 -0000	1.7
@@ -1,6 +1,6 @@
 set locale [ad_conn locale]
 
-set display_p [expr [lang::util::translator_mode_p] && ![string equal [ad_conn locale] "en_US"]]
+set display_p [expr {[lang::util::translator_mode_p] && [ad_conn locale] ne "en_US" }]
 
 template::list::create \
     -name messages \