Index: openacs-4/packages/contacts-lite/www/admin/categories/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/admin/categories/add-edit.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/contacts-lite/www/admin/categories/add-edit.tcl	20 Jan 2021 21:17:08 -0000	1.2
+++ openacs-4/packages/contacts-lite/www/admin/categories/add-edit.tcl	20 Jan 2021 21:21:08 -0000	1.3
@@ -17,10 +17,10 @@
 # note make sure this is subsite aware.
 
 if {[info exists category_id]} {
-  ad_require_permission $category_id write
+  permission::require_permission -object_id $category_id -privilege write
   set page_title "Edit Category"
 } else {
-  ad_require_permission $package_id create
+  permission::require_permission -object_id $package_id -privilege create
   set page_title "New Category"
 }