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 -r1.177 -r1.178
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Sep 2003 13:11:39 -0000	1.177
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Oct 2003 20:01:09 -0000	1.178
@@ -585,15 +585,16 @@
 	set parent_id [dotlrn_community::get_parent_id -community_id $community_id]
         set parent_admin_segment_id [get_admin_rel_id -community_id $parent_id]
 
+        # Member privs
+        foreach priv { read create write } {
+            permission::grant \
+                -party_id $member_segment_id \
+                -object_id $community_id \
+                -privilege $priv
+        }
+
+        # Admin privs
         permission::grant \
-            -party_id $member_segment_id \
-            -object_id $community_id \
-            -privilege read
-        permission::grant \
-            -party_id $member_segment_id \
-            -object_id $community_id \
-            -privilege write
-        permission::grant \
             -party_id $admin_segment_id \
             -object_id $community_id \
             -privilege admin