Index: openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl,v diff -u -r1.15 -r1.15.2.1 --- openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl 31 Oct 2018 13:54:59 -0000 1.15 +++ openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl 19 Mar 2019 16:24:45 -0000 1.15.2.1 @@ -198,7 +198,8 @@ set separator "" set testnode_1 [list "/navigation_test_node1/" "navigation_test_node1"] set testnode_2 [list "[lindex $testnode_1 0]navigation_test_node2/" "navigation_test_node2"] - set root_node [list "/" [_ acs-kernel.Main_Site]] + set main_node [site_node::get -url /] + set root_node [list "/" [lang::util::localize [dict get $main_node instance_name]]] set last_node [list "" "last"] set bar_components [list $root_node $testnode_1 $testnode_2 $last_node]