Index: openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	12 Mar 2019 17:02:02 -0000	1.18
+++ openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	12 Mar 2019 17:04:30 -0000	1.19
@@ -19,7 +19,7 @@
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
-set redirect_url [ad_decode $return_url "" "patch?patch_number=$patch_number" $return_url]
+set redirect_url [expr {$return_url ne "" ? $return_url : "patch?patch_number=$patch_number"}]
 
 bug_tracker::get_pretty_names -array pretty_names