Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl,v
diff -u -r1.4 -r1.4.10.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	10 Jan 2007 21:22:07 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	6 Sep 2013 16:01:46 -0000	1.4.10.1
@@ -14,7 +14,7 @@
     { return_url "" }
 }
 
-ad_require_permission $constraint_id delete
+permission::require_permission -object_id $constraint_id -privilege delete
 
 set package_id [ad_conn package_id]