Index: openacs-4/packages/file-storage/www/simple-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.tcl,v
diff -u -r1.10 -r1.10.4.1
--- openacs-4/packages/file-storage/www/simple-edit.tcl	13 Feb 2009 22:13:06 -0000	1.10
+++ openacs-4/packages/file-storage/www/simple-edit.tcl	6 Sep 2013 16:01:49 -0000	1.10.4.1
@@ -9,7 +9,7 @@
 }
 
 # check for write permission on the item
-ad_require_permission $object_id write
+permission::require_permission -object_id $object_id -privilege write
 
 # Message lookup uses variable pretty_name