Index: openacs-4/packages/file-storage/www/file-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit.tcl,v
diff -u -r1.10 -r1.10.4.1
--- openacs-4/packages/file-storage/www/file-edit.tcl	21 Apr 2009 11:08:23 -0000	1.10
+++ openacs-4/packages/file-storage/www/file-edit.tcl	6 Sep 2013 16:01:48 -0000	1.10.4.1
@@ -21,7 +21,7 @@
 
 #check they have write permission on this file
 
-ad_require_permission $file_id write
+permission::require_permission -object_id $file_id -privilege write
 
 set context [fs_context_bar_list -final "[_ file-storage.Rename]" $file_id]