Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -N -r1.327.2.5 -r1.327.2.6
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Aug 2015 17:44:59 -0000	1.327.2.5
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	19 Aug 2015 16:22:18 -0000	1.327.2.6
@@ -682,6 +682,11 @@
       ::xowiki::Form requireFormCSS
     }
   }
+
+  FormPage instproc action_url {} {
+    # can be overloaded
+    return [my pretty_link]
+  }
   
   FormPage instproc edit {
     {-validation_errors ""}
@@ -981,7 +986,7 @@
         }
       }
       set m [my form_parameter __form_redirect_method "edit"]
-      set url [export_vars -base [my pretty_link] {m return_url}]
+      set url [export_vars -base [my action_url] {m return_url}]
       #my log "=== setting action <$url> for form-action my-name [my name]"
       $formNode setAttribute action $url method POST role form
       if {$has_file} {$formNode setAttribute enctype multipart/form-data}