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.1 -r1.2
--- openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	25 Sep 2003 16:20:15 -0000	1.1
+++ openacs-4/packages/acs-lang/lib/messages-to-translate.tcl	25 Sep 2003 17:11:09 -0000	1.2
@@ -40,9 +40,11 @@
     foreach message_key [lang::util::get_message_lookups] {
 
         set locale [ad_conn locale]
-        set orig_text [lang::message::lookup "en_US" $message_key]
-        set translated_text [lang::message::lookup $locale $message_key]
 
+        # 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 key_split [split $message_key "."]
         set package_key_part [lindex $key_split 0]
         set message_key_part [lindex $key_split 1]