Index: openacs-4/packages/bug-tracker/www/patch-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch-add.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/bug-tracker/www/patch-add.tcl	6 Aug 2014 16:25:20 -0000	1.17
+++ openacs-4/packages/bug-tracker/www/patch-add.tcl	27 Jun 2015 18:01:15 -0000	1.18
@@ -17,7 +17,7 @@
 
 if { $return_url eq "" } {
     if { ([info exists bug_number] && $bug_number ne "") } {
-        set return_url "bug?[export_vars { bug_number }]"
+        set return_url [export_vars -base bug { bug_number }]
     } else {
         set return_url "patch-list"
     }
@@ -138,7 +138,7 @@
 
         # Redirect to the view page for the created patch by default
         if { $return_url eq "" } {
-            set redirect_url "patch?[export_vars { patch_number }]"
+            set redirect_url [export_vars -base patch { patch_number }]
         } else {
             set redirect_url $return_url
         }
@@ -156,7 +156,7 @@
             set select_bugs_p [element get_value patch select_bugs_p]
             
             if { $select_bugs_p } {
-                set redirect_url "map-patch-to-bugs?[export_vars -url { return_url patch_number component_id }]"
+                set redirect_url [export_vars -base map-patch-to-bugs { return_url patch_number component_id }]
             }
         }
     }