Index: openacs-4/packages/general-comments/www/file-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-edit-2.tcl,v
diff -u -r1.2 -r1.2.26.1
--- openacs-4/packages/general-comments/www/file-edit-2.tcl	14 Jun 2001 19:52:22 -0000	1.2
+++ openacs-4/packages/general-comments/www/file-edit-2.tcl	6 Sep 2013 16:01:50 -0000	1.2.26.1
@@ -19,7 +19,7 @@
 }
 
 # check to see if the user can edit this comment
-ad_require_permission $attach_id write
+permission::require_permission -object_id $attach_id -privilege write
 
 db_1row get_revision_id {
     select content_item.get_latest_revision(:attach_id) as revision_id from dual