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.19 -r1.15.2.20
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	28 Jun 2021 19:57:42 -0000	1.15.2.19
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	14 Jul 2021 09:51:12 -0000	1.15.2.20
@@ -373,6 +373,7 @@
         {-update ""}
         {-remove ""}
         {-extra_url_parameter {{m edit}}}
+        {-next_page_must_contain ""}
     } {
 
         Edit a form page via the web interface.
@@ -434,7 +435,10 @@
                    -last_request $last_request -user_id $user_id \
                    $instance/$path]
         acs::test::reply_has_status_code $d 200
-        acs::test::reply_contains $d [dict get $form_content _title]
+        if {$next_page_must_contain eq ""} {
+            set next_page_must_contain [dict get $form_content _title]
+        }
+        acs::test::reply_contains $d $next_page_must_contain
 
         dict set d instance $instance
         return $d