Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/dotlrn/www/index.tcl	23 Oct 2002 12:38:39 -0000	1.40
+++ openacs-4/packages/dotlrn/www/index.tcl	13 Jan 2005 13:57:21 -0000	1.41
@@ -40,9 +40,10 @@
     ad_script_abort
 }    
 
-set communities [dotlrn_community::get_all_communities_by_user $user_id]
 if {![dotlrn::user_can_browse_p -user_id $user_id]} {
 
+    set communities [dotlrn_community::get_all_communities_by_user $user_id]
+
     if {[llength $communities] == 0} {
         ad_returnredirect "index-not-a-user"
         ad_script_abort