Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v diff -u -r1.37 -r1.38 --- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 6 Apr 2018 15:02:47 -0000 1.37 +++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 6 Apr 2018 15:40:36 -0000 1.38 @@ -180,7 +180,7 @@ if { [string match "admin/*" [ad_conn extra_url]] } { lappend context [list "[ad_conn package_url]admin/" \ - "[_ acs-tcl.Administration]"] + [_ acs-tcl.Administration]] } if {[llength $args] == 0} { @@ -192,11 +192,11 @@ set args [list $args] } } - + lappend context {*}$args if { [info exists separator] } { - return [ad_context_bar_html -separator $separator [concat $context $args]] + return [ad_context_bar_html -separator $separator $context] } else { - return [ad_context_bar_html [concat $context $args]] + return [ad_context_bar_html $context] } }