Index: openacs-4/packages/file-storage/www/simple-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-delete.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/www/simple-delete.tcl	13 Feb 2009 22:13:06 -0000	1.8
+++ openacs-4/packages/file-storage/www/simple-delete.tcl	27 Oct 2014 16:41:34 -0000	1.9
@@ -5,12 +5,12 @@
     @creation-date 10 Nov 2000
     @cvs-id $Id$
 } {
-    object_id:integer,notnull
-    folder_id:notnull
+    object_id:naturalnum,notnull
+    folder_id:naturalnum,notnull
 }
 
 # check for delete permission on the file
-ad_require_permission $object_id delete
+permission::require_permission -object_id $object_id -privilege delete
 
 # Delete