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.3 -r1.4
--- openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	25 Sep 2003 17:11:53 -0000	1.3
+++ openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	30 Sep 2003 10:10:42 -0000	1.4
@@ -1,3 +1,5 @@
+set locale [ad_conn locale]
+
 set display_p [expr [lang::util::translator_mode_p] && ![string equal [ad_conn locale] "en_US"]]
 
 template::list::create \
@@ -42,8 +44,8 @@
         set locale [ad_conn locale]
 
         # Extra args mean no substitution
-        set orig_text [lang::message::lookup "en_US" $message_key {} {} 0]
-        set translated_text [lang::message::lookup $locale $message_key {} {} 0]
+        set orig_text [lang::message::lookup "en_US" $message_key {} {} 0 0]
+        set translated_text [lang::message::lookup $locale $message_key {} {} 0 0]
 
         set key_split [split $message_key "."]
         set package_key_part [lindex $key_split 0]