Index: openacs-4/packages/static-pages/www/admin/commentability-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/commentability-toggle.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-pages/www/admin/commentability-toggle.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/static-pages/www/admin/commentability-toggle.tcl	12 Sep 2013 20:43:19 -0000	1.2
@@ -10,7 +10,7 @@
     recurse:boolean
 }
 
-if [ad_permission_p -user_id [acs_magic_object the_public] $item_id general_comments_create] {
+if [permission::permission_p -party_id [acs_magic_object the_public] -object_id $item_id -privilege general_comments_create] {
     db_exec_plsql revoke_commentability {
 	begin
 	    static_page.revoke_permission(:item_id,acs.magic_object_id('the_public'),'general_comments_create',