Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -r1.15.2.8 -r1.15.2.9
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	27 Jun 2019 08:27:14 -0000	1.15.2.8
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	3 Jul 2019 19:54:08 -0000	1.15.2.9
@@ -113,12 +113,17 @@
         set item_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
         if {$item_id == 0} {
             if {$file_content eq ""} {
+                ::$package_id get_lang_and_name -name $name lang stripped_name
+                set nls_language [::xowiki::Package get_nls_language_from_lang $lang]
                 set f [::xowiki::Page new -name $name -description "" \
-                           -parent_id $parent_id -package_id $package_id -text [list "Content of $name" text/html]]
+                           -parent_id $parent_id -package_id $package_id \
+                           -nls_language $nls_language \
+                           -text [list "Content of $name" text/html]]
             } else {
                 set mime_type [::xowiki::guesstype $name]
                 set f [::xowiki::File new -name $name -description "" \
-                           -parent_id $parent_id -package_id $package_id -mime_type $mime_type]
+                           -parent_id $parent_id -package_id $package_id \
+                           -mime_type $mime_type]
                 set import_file [ad_tmpnam]
                 ::xo::write_file $import_file [::base64::decode $file_content]
                 $f set import_file $import_file
Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/Attic/test.tcl,v
diff -u -r1.46.2.3 -r1.46.2.4
--- openacs-4/packages/xowiki/www/admin/test.tcl	25 Jun 2019 18:34:04 -0000	1.46.2.3
+++ openacs-4/packages/xowiki/www/admin/test.tcl	3 Jul 2019 19:54:08 -0000	1.46.2.4
@@ -742,12 +742,16 @@
     set item_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
     if {$item_id == 0} {
       if {$file_content eq ""} {
+        ::$package_id get_lang_and_name -name $name lang stripped_name
+        set nls_language [::xowiki::Package get_nls_language_from_lang $lang]
         set f [::xowiki::Page new -name $name -description "" \
-                   -parent_id $parent_id -package_id $package_id -text [list "Content of $name" text/html]]
+                   -parent_id $parent_id -package_id $package_id \
+                   -text [list "Content of $name" text/html]]
       } else {
         set mime_type [::xowiki::guesstype $name]
         set f [::xowiki::File new -name $name -description "" \
-                   -parent_id $parent_id -package_id $package_id -mime_type $mime_type]
+                   -parent_id $parent_id -package_id $package_id \
+                   -mime_type $mime_type]
         set import_file [ad_tmpnam]
         ::xo::write_file $import_file [::base64::decode $file_content]
         $f set import_file $import_file