Index: openacs-4/packages/general-comments/www/view-comment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-comment.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/general-comments/www/view-comment.tcl	20 Dec 2010 00:15:22 -0000	1.9
+++ openacs-4/packages/general-comments/www/view-comment.tcl	6 Sep 2013 12:06:51 -0000	1.9.2.1
@@ -37,8 +37,8 @@
 # check for permissions
 set package_id [ad_conn package_id]
 ad_require_permission $comment_id read
-set write_perm_p [ad_permission_p $comment_id write]
-set admin_p [ad_permission_p $package_id admin]
+set write_perm_p [permission::permission_p -object_id $comment_id -privilege write]
+set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
 # if the user has write permissions then allow
 # viewing of selected revision