Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	4 Jun 2002 15:00:27 -0000	1.7
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	17 Jun 2002 21:57:20 -0000	1.8
@@ -28,6 +28,7 @@
 
 set comm_type ""
 db_multirow communities select_communities {} {
+    set tree_level [expr $tree_level - $community_type_level]
     if {![string equal $simple_community_type dotlrn_community]} {
         set comm_type $simple_community_type
     } else {