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.167 -r1.168
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Aug 2002 20:47:15 -0000	1.167
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Aug 2002 15:13:22 -0000	1.168
@@ -376,10 +376,12 @@
     ad_proc -private get_default_roles_not_cached {
         {-community_type:required}
     } {
-        if {[string match $community_type dotlrn_club]} {
-            set community_type dotlrn_community
-        } elseif {![string match $community_type dotlrn_community]} {
+        set toplevel_community_type [get_toplevel_community_type -community_type $community_type]
+
+        if {[string match $toplevel_community_type dotlrn_class_instance]} {
             set community_type dotlrn_class_instance
+        } else {
+            set community_type dotlrn_community
         }
 
         return [db_list_of_lists select_role_data {}]