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.26 -r1.90.2.27
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	4 Feb 2022 14:53:37 -0000	1.90.2.26
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Feb 2022 20:19:06 -0000	1.90.2.27
@@ -106,10 +106,10 @@
             where i.parent_id = c.item_id
         )
         select not exists (select 1 from children
-                            where not acs_permission.permission_p(item_id, :user_id, :privilege))
+                            where acs_permission.permission_p(item_id, :user_id, :privilege) = 'f')
            and not exists (select 1 from cr_revisions
                             where item_id in (select item_id from children)
-                              and not acs_permission.permission_p(revision_id, :user_id, :privilege))
+                              and acs_permission.permission_p(revision_id, :user_id, :privilege) = 'f')
           from dual
     }]
     return [expr {$all_children_have_privilege_p ? 1 : 0}]
@@ -417,7 +417,7 @@
         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')
+        and    acs_permission.permission_p(cr_items.item_id, :user_id, 'read') = 't'
     }]
 }
 
@@ -475,7 +475,7 @@
            acs_permission.permission_p(fs_objects.object_id, :user_id, 'write') as write_p
            from fs_objects
            where fs_objects.parent_id = :folder_id
-           and acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
+           and acs_permission.permission_p(fs_objects.object_id, :user_id, 'read') = 't'
            order by fs_objects.sort_key, fs_objects.name
     }]]