Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	18 Aug 2003 08:03:43 -0000	1.11
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	30 Sep 2003 10:27:39 -0000	1.12
@@ -327,7 +327,7 @@
     return [clock format $seconds -format "%Y-%m-%d %H:%M:%S"]
 }
 
-ad_proc -public lc_get  {
+ad_proc -public lc_get {
     {-locale ""}
     key
 } {
@@ -341,9 +341,10 @@
     # All localization message keys have a certain prefix
     set message_key "acs-lang.localization-$key"
 
-    # Set upvar level to -1 so that no attempt is made to interpolate variables
+    # Set upvar level to 0 so that no attempt is made to interpolate variables
     # into the string
-    return [lang::message::lookup $locale $message_key {} {} -1]
+    # Set translator_mode_p to 0 so we don't dress the message up with a link to translate
+    return [lang::message::lookup $locale $message_key {} {} 0 0]
 }
 
 ad_proc -public lc_time_fmt {