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 -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	11 Nov 2001 18:48:01 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	13 Nov 2001 16:21:01 -0000	1.2
@@ -32,8 +32,8 @@
     } {
 	# Fetch community_id and community_type if they're not there
 	if {[empty_string_p $community_id] && [empty_string_p $community_type]} {
-	    set community_id [dotlrn::get_community_id]
-	    set community_type [dotlrn::get_community_type]
+	    set community_id [dotlrn_community::get_community_id]
+	    set community_type [dotlrn_community::get_community_type]
 	}
 
 	if {![empty_string_p $community_id]} {
@@ -49,10 +49,14 @@
 	}
 
 	foreach arg $args {
-	    lappend list_of_links "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
+	    if {[llength $arg] == 2} {
+		lappend list_of_links "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
+	    } else {
+		lappend list_of_links "$arg"
+	    }
 	}
 
-	return "[join $list_of_links " &gt; "] &gt;<br>"
+	return "[join $list_of_links " &gt; "]<br>"
     }
 	
 }