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 -r1.13 -r1.14
--- openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	29 May 2016 10:50:02 -0000	1.13
+++ openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	7 Apr 2018 11:27:06 -0000	1.14
@@ -39,7 +39,7 @@
 set write_p [permission::permission_p -object_id $package_id -privilege write]
 set user_is_submitter_p [expr {$user_id == [bug_tracker::get_patch_submitter -patch_number $patch_number]}]
 
-if { ![expr {$user_is_submitter_p || $write_p}] } {            
+if { !($user_is_submitter_p || $write_p) } {            
     ad_return_forbidden "[_ bug-tracker.Permission]" "[_ bug-tracker.You_1]"            
     ad_script_abort
 }