Index: openacs-4/packages/dotlrn/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/navigation-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	29 Nov 2001 06:05:37 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	15 Jan 2002 20:47:01 -0000	1.4
@@ -60,8 +60,15 @@
 
 	set first_args []
 	lappend first_args [list [root_url] dotLRN]
-	lappend first_args [list [dotlrn_community::get_community_type_url $community_type] [dotlrn_community::get_community_type_name $community_type]]
 
+        if {[string equal ${community_type} "dotlrn_class_instance"] != 0} {
+            lappend first_args [list [dotlrn_community::get_community_type_url $community_type] [ad_parameter classes_pretty_plural]]
+        } elseif {[string equal ${community_type} "dotlrn_club"] != 0} {
+            lappend first_args [list [dotlrn_community::get_community_type_url $community_type] [ad_parameter clubs_pretty_plural]]
+        } else {
+            lappend first_args [list [dotlrn_community::get_community_type_url $community_type] [dotlrn_community::get_community_type_name $community_type]]
+        }
+
 	if {![empty_string_p $community_id]} {
 	    lappend first_args [list [dotlrn_community::get_community_url $community_id] [dotlrn_community::get_community_name $community_id]]
 	}