Index: openacs-4/packages/file-storage/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/file-storage/www/delete.tcl	1 Oct 2017 12:09:46 -0000	1.10
+++ openacs-4/packages/file-storage/www/delete.tcl	15 Mar 2019 09:43:08 -0000	1.10.2.1
@@ -34,7 +34,12 @@
 
 set object_id_list [join $object_id "','"]
 
-db_multirow -extend {delete_message} delete_list get_to_be_deleted {} {
+db_multirow -extend {delete_message} delete_list get_to_be_deleted [subst {
+    select fs.object_id as fs_object_id, fs.type, fs.name, fs.parent_id,
+    acs_permission.permission_p(fs.object_id, :user_id, 'delete') as delete_p
+    from fs_objects fs
+    where fs.object_id in ('$object_id_list')
+}] {
 	  if {$delete_p} {
 	      set delete_message ""
 	      incr allowed_count