Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.48.2.3 -r1.48.2.4
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	22 Sep 2015 18:34:43 -0000	1.48.2.3
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	1 Dec 2015 09:23:09 -0000	1.48.2.4
@@ -659,13 +659,17 @@
 
     @see lang::util::translator_mode_set
 } {
+    if {[info exists ::acs_translator_mode_p]} {
+        return $::acs_translator_mode_p
+    }
     if { [ad_conn isconnected] } {
         # There is an HTTP connection - return the client property
-        return [ad_get_client_property -default 0 acs-lang translator_mode_p]
+        set ::acs_translator_mode_p [ad_get_client_property -default 0 acs-lang translator_mode_p]
     } else {
         # No HTTP connection
-        return 0
+        set ::acs_translator_mode_p 0
     }
+    return $::acs_translator_mode_p
 }
 
 ad_proc -public lang::util::translator_mode_set {