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 -N -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]