Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	18 Mar 2004 09:07:46 -0000	1.15.2.1
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	18 Mar 2004 10:12:38 -0000	1.15.2.2
@@ -680,8 +680,13 @@
     set subst_message [lang::message::format $localized_message $value_list]
     set expected_message "The frog jumped across the fence. About 50% of the time, he stumbled, or maybe it was %20 %times%."
 
-    aa_true "the frog should jump across the fence" [string equal $subst_message \
-                                                                  $expected_message]
+    aa_equals "the frog should jump across the fence" $subst_message $expected_message
+
+    set my_var(my_key) foo
+    set localized_message "A text with an array variable %my_var.my_key% in it"
+    set subst_message [lang::message::format $localized_message {} 1]
+    set expected_message "A text with an array variable foo in it"
+    aa_equals "embedded array variable" $subst_message $expected_message
 }
 
 aa_register_case \