Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -N -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