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 -N -r1.15.2.28 -r1.15.2.29
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	7 Mar 2022 13:16:49 -0000	1.15.2.28
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	7 Mar 2022 13:24:08 -0000	1.15.2.29
@@ -113,6 +113,7 @@
 
     ad_proc -private ::xowiki::test::require_page {
         -text
+        {-page_order ""}
         name
         parent_id
         package_id
@@ -126,14 +127,22 @@
                 if {![info exists text]} {
                     set text [list "Content of $name" text/html]
                 }
-                set f [::xowiki::Page new -name $name -description "" \
-                           -parent_id $parent_id -package_id $package_id \
+                set f [::xowiki::Page new \
+                           -name $name \
+                           -description "" \
+                           -parent_id $parent_id \
+                           -package_id $package_id \
                            -nls_language $nls_language \
+                           -page_order $page_order \
                            -text $text]
             } else {
                 set mime_type [::xowiki::guesstype $name]
-                set f [::xowiki::File new -name $name -description "" \
-                           -parent_id $parent_id -package_id $package_id \
+                set f [::xowiki::File new \
+                           -name $name \
+                           -description "" \
+                           -parent_id $parent_id \
+                           -package_id $package_id \
+                           -page_order $page_order \
                            -mime_type $mime_type]
 
                 ::xo::write_tmp_file import_file [::base64::decode $file_content]