Index: openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl,v
diff -u -r1.1.2.26 -r1.1.2.27
--- openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	3 Jul 2019 20:28:35 -0000	1.1.2.26
+++ openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	3 Jul 2019 20:53:00 -0000	1.1.2.27
@@ -47,6 +47,14 @@
         aa_run_with_teardown -rollback -test_code {
             set instance $_xowiki_test_instance_name
             set testfolder .testfolder
+
+            #
+            # Force the system locale to en_US. The value is
+            # automatially reset to the previous value, since we are
+            # running in an transaction.
+            #
+            lang::system::set_locale en_US
+
             set locale [lang::system::locale]
             set lang [string range $locale 0 1]