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.23 -r1.15.2.24
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	18 Jan 2022 11:29:11 -0000	1.15.2.23
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	18 Jan 2022 12:51:45 -0000	1.15.2.24
@@ -376,6 +376,7 @@
         {-remove ""}
         {-extra_url_parameter {{m edit}}}
         {-next_page_must_contain ""}
+        {-refetch:boolean false}
     } {
 
         Edit a form page via the web interface.
@@ -428,22 +429,25 @@
                    -remove $remove]
         acs::test::reply_has_status_code $d 302
 
-        foreach {key value} $update {
-            dict set form_content $key $value
-        }
-        aa_log "form_content:\n[::xowiki::test::pretty_form_content $form_content]"
+        set location /[::acs::test::get_url_from_location $d]
 
-        set d [acs::test::http \
-                   -last_request $last_request -user_id $user_id \
-                   $instance/$path]
-        acs::test::reply_has_status_code $d 200
-        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
+        if {$refetch_p} {
+            foreach {key value} $update {
+                dict set form_content $key $value
+            }
+            aa_log "form_content:\n[::xowiki::test::pretty_form_content $form_content]"
 
+            set d [acs::test::http \
+                       -last_request $last_request -user_id $user_id \
+                       $instance/$path]
+            acs::test::reply_has_status_code $d 200
+            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
+        return $d        
     }
 
     ad_proc ::xowiki::test::create_form {