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.7 -r1.8
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	11 Jun 2018 09:14:55 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	21 Jun 2018 16:00:59 -0000	1.8
@@ -297,14 +297,15 @@
         -instance:required
         -path:required
         {-update ""}
+        {-extra_url_parameter {{m edit}}}
     } {
 
         Edit a form page via the web interface.
         In essence, this calls $instance/$path?m=edit
 
     } {
         aa_log "... edit page $path"
-        set d [aa_http -user_id $user_id $instance/$path?m=edit]
+        set d [aa_http -user_id $user_id $instance/$path?[export_vars $extra_url_parameter]]
 
         aa_equals "Status code valid" [dict get $d status] 200
         #set location [::xowiki::test::get_url_from_location $d]