Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.54.2.4 -r1.54.2.5
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	14 Oct 2016 18:58:53 -0000	1.54.2.4
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	23 Feb 2017 10:37:14 -0000	1.54.2.5
@@ -658,8 +658,7 @@
                     append formated_message $percent_match
                 } else {
                     # Do the substitution
-                
-                    append formated_message [lindex [array get value_array $variable_string] 1]
+                    append formated_message $value_array($variable_string)
                 }
             } else {
                 regexp {^([^.]+)(?:\.([^.]+))?$} $variable_string match variable_name array_key