Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	11 Mar 2002 22:38:37 -0000	1.36
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	13 Mar 2002 20:30:47 -0000	1.37
@@ -97,6 +97,13 @@
             -description "${community_name}'s Files" \
         ]
 
+        ad_permission_revoke [acs_magic_object "registered_users"] $folder_id "read"
+        ad_permission_revoke [acs_magic_object "registered_users"] $folder_id "write"
+        ad_permission_revoke [acs_magic_object "registered_users"] $folder_id "admin"
+        ad_permission_revoke [acs_magic_object "the_public"] $folder_id "read"
+        ad_permission_revoke [acs_magic_object "the_public"] $folder_id "write"
+        ad_permission_revoke [acs_magic_object "the_public"] $folder_id "admin"
+
         # Set up public folder
         set public_folder_id [fs::new_folder \
             -name "public" \