Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -N -r1.180.2.63 -r1.180.2.64
--- openacs-4/packages/xowiki/xowiki.info	25 May 2021 19:37:24 -0000	1.180.2.63
+++ openacs-4/packages/xowiki/xowiki.info	14 Jul 2021 09:51:12 -0000	1.180.2.64
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="5.10.0d79" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d79.apm">
+    <version name="5.10.0d80" url="http://openacs.org/repository/download/apm/xowiki-5.10.0d80.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>A xotcl-based enterprise wiki system with multiple object types</summary>
 	<release-date>2017-08-06</release-date>
@@ -55,7 +55,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xowiki" version="5.10.0d79"/>
+	<provides url="xowiki" version="5.10.0d80"/>
 	<requires url="xotcl-core" version="5.10.0d38"/>
 	<requires url="acs-datetime" version="5.9.1"/>
 	<requires url="acs-kernel" version="5.9.1"/>
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.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