Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.332.2.51 -r1.332.2.52
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	26 Feb 2020 20:26:22 -0000	1.332.2.51
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	10 Mar 2020 09:43:48 -0000	1.332.2.52
@@ -2861,6 +2861,10 @@
       delete         {{package_id admin}}
       edit-new       {{item_id write}}
     }
+
+    Class create FormPage -array set require_permission {
+      list           { {{is_folder_page .} read} }
+    }
   }
 
   Policy policy2 -contains {
@@ -2917,6 +2921,9 @@
       edit              admin
       list              {{package_id read}}
     }
+    Class create FormPage -array set require_permission {
+      list           { {{is_folder_page .} read} }
+    }
   }
 
   Policy policy3 -contains {
@@ -2983,7 +2990,10 @@
         {{in_state initial|answered|suspended|working|done} creator}
         admin
       }
-      list               admin
+      list               {
+        {{is_folder_page .} read}
+        admin
+      }
       clipboard-add      admin
       clipboard-clear    admin
       clipboard-content  admin
@@ -3053,7 +3063,10 @@
       edit               {
         {{in_state initial|suspended|working} creator} admin
       }
-      list               admin
+      list               {
+        {{is_folder_page .} read}
+        admin
+      }
     }
     Class create Form -array set require_permission {
       view              admin
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.71 -r1.542.2.72
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	7 Mar 2020 19:07:36 -0000	1.542.2.71
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	10 Mar 2020 09:43:48 -0000	1.542.2.72
@@ -1229,6 +1229,12 @@
     return $success
   }
 
+  Page instproc condition=is_folder_page {query_context value} {
+    # query_context and value are ignored
+    return [:is_folder_page]
+  }
+
+
   Page instproc copy_content_vars {-from_object:required} {
     array set excluded_var {
       folder_id 1 package_id 1 absolute_links 1 lang_links 1 modifying_user 1