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.7 -r1.8
--- openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	20 Apr 2004 15:45:24 -0000	1.7
+++ openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	19 Sep 2013 15:37:33 -0000	1.8
@@ -28,7 +28,7 @@
     ad_script_abort
 }
 
-set write_p [ad_permission_p $package_id write]
+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] } {