Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.164 -r1.165
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Aug 2002 19:22:01 -0000	1.164
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Aug 2002 20:23:35 -0000	1.165
@@ -305,6 +305,13 @@
             }
         }
 
+        # This new community should _not_ inherit it's permissions
+        # from the root dotlrn instance. Why? All dotlrn users
+        # can read the root dotlrn instance, but only members of
+        # this community should be able to read this instance (and
+        # it's children)
+        permission::set_not_inherit -object_id $community_id
+
         return $community_id
     }