Index: openacs-4/packages/attachments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v
diff -u -r1.6 -r1.6.4.1
--- openacs-4/packages/attachments/www/file-add-2.tcl	29 May 2009 18:59:05 -0000	1.6
+++ openacs-4/packages/attachments/www/file-add-2.tcl	6 Sep 2013 16:01:48 -0000	1.6.4.1
@@ -31,7 +31,7 @@
 } 
 
 # Check for write permission on this folder
-ad_require_permission $folder_id write
+permission::require_permission -object_id $folder_id -privilege write
 
 # Get the filename part of the upload file
 if ![regexp {[^//\\]+$} $upload_file filename] {