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.19 -r1.20 --- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl 4 Dec 2002 09:51:04 -0000 1.19 +++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl 11 Dec 2002 13:53:51 -0000 1.20 @@ -33,10 +33,11 @@ } { # Prepend some args set first_args [list [list [get_url] "dotLRN"]] + set admin_pretty_name [_ dotlrn.admin_pages_navbar_name] if {[llength $args] > 0} { - lappend first_args [list [get_admin_url] Admin] + lappend first_args [list [get_admin_url] $admin_pretty_name] } else { - lappend first_args Admin + lappend first_args $admin_pretty_name } set args [concat $first_args $args]