Index: openacs-4/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/attachments/www/attach.tcl	7 Aug 2017 23:48:04 -0000	1.13
+++ openacs-4/packages/attachments/www/attach.tcl	16 Jul 2018 07:44:11 -0000	1.14
@@ -22,7 +22,7 @@
 set to_object_id $object_id
 
 # We require the write permission on an object
-permission::require_permission -object_id $to_object_id -privilege write
+permission::require_permission -party_id $user_id -object_id $to_object_id -privilege write
 
 # Give the object a nasty name if it doesn't have a pretty name
 if {$pretty_object_name eq ""} {
@@ -47,7 +47,7 @@
 permission::require_permission -object_id $folder_id -privilege read
 
 # Size of contents
-set n_contents [fs::get_folder_contents_count -folder_id $folder_id -user_id $user_id]
+set n_contents [fs::get_folder_contents_count -folder_id $folder_id]
 
 # Folder name
 set folder_name [lang::util::localize [fs::get_object_name -object_id $folder_id]]
Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/file-storage/www/index.tcl	7 Apr 2018 19:13:11 -0000	1.34
+++ openacs-4/packages/file-storage/www/index.tcl	16 Jul 2018 07:44:11 -0000	1.35
@@ -38,11 +38,8 @@
 # set templating datasources
 set folder_name [fs_get_folder_name $folder_id]
 
-set user_id [ad_conn user_id]
-#permission::require_permission \
-    -party_id $user_id \
-    -object_id $folder_id \
-    -privilege "read"
+# set user_id [ad_conn user_id]
+# permission::require_permission -party_id $user_id -object_id $folder_id -privilege "read"
 
 set write_p [permission::permission_p -object_id $folder_id -privilege write]
 set admin_p [permission::permission_p -object_id $folder_id -privilege admin]
@@ -60,7 +57,7 @@
 set package_id [ad_conn package_id]
 set show_administer_permissions_link_p [parameter::get -package_id $package_id -parameter "ShowAdministerPermissionsLinkP" -default 1]
 
-set n_contents [fs::get_folder_contents_count -folder_id $folder_id -user_id $user_id]
+set n_contents [fs::get_folder_contents_count -folder_id $folder_id]
 
 set folder_url [export_vars -base [ad_conn url] {folder_id}]
 set context [fs_context_bar_list -root_folder_id $root_folder_id $folder_id]