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.27 -r1.15.2.28
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	18 Jan 2022 17:50:35 -0000	1.15.2.27
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	7 Mar 2022 13:16:49 -0000	1.15.2.28
@@ -111,16 +111,25 @@
         return $item_id
     }
 
-    ad_proc -private ::xowiki::test::require_page {name parent_id package_id {file_content ""}} {
+    ad_proc -private ::xowiki::test::require_page {
+        -text
+        name
+        parent_id
+        package_id
+        {file_content ""}
+    } {
         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]
+                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 \
                            -nls_language $nls_language \
-                           -text [list "Content of $name" text/html]]
+                           -text $text]
             } else {
                 set mime_type [::xowiki::guesstype $name]
                 set f [::xowiki::File new -name $name -description "" \