Index: openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl,v
diff -u -r1.14.2.5 -r1.14.2.6
--- openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl	24 Apr 2019 11:57:39 -0000	1.14.2.5
+++ openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl	27 Jun 2019 08:55:54 -0000	1.14.2.6
@@ -32,6 +32,8 @@
 
         set instance $_test_instance_name
         set testfolder .testfolder
+        set locale [lang::system::locale]
+        set lang [string range $locale 0 1]
 
         try {
             ###########################################################
@@ -60,11 +62,12 @@
                 -path $testfolder \
                 -parent_id $folder_id \
                 -form_name page.form \
-                -update {
+                -update [subst {
                     _title "Sample page"
                     _name hello
                     _text "Hello world!"
-                }
+                    _nls_language $locale
+                }]
 
 
             ###########################################################
@@ -75,10 +78,11 @@
                 -user_id $user_id \
                 -instance $instance \
                 -path $testfolder/hello \
-                -update {
+                -update [subst {
                     _title "Sample page 2"
                     _text "Brave new world!"
-                }
+                    _nls_language $locale
+                }]
 
         } on error {errorMsg} {
             aa_true "Error msg: $errorMsg" 0