Index: openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	6 Jun 2018 22:58:09 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	7 Jun 2018 17:30:17 -0000	1.8
@@ -17,7 +17,7 @@
     group_id:onevalue
 } -validate {
     groups_exists_p -requires {group_id:notnull} {
-        if { ![party::permission_p -privilege delete $group_id] } {
+        if { ![permission::permission_p -object_id $group_id -privilege "delete"] } {
             ad_complain "The group either does not exist or you do not have permission to delete it"
         }
     }