Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -N -r1.90.2.36 -r1.90.2.37
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 15:00:37 -0000	1.90.2.36
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 15:02:52 -0000	1.90.2.37
@@ -418,10 +418,10 @@
 
 } {
     return [db_list select_folder_contents {
-        select cr_items.item_id as object_id, cr_items.name
-        from   cr_items
-        where  cr_items.parent_id = :folder_id
-        and    acs_permission.permission_p(cr_items.item_id, :user_id, 'read') = 't'
+        select item_id
+          from cr_items
+         where parent_id = :folder_id
+           and acs_permission.permission_p(item_id, :user_id, 'read') = 't'
     }]
 }