Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.69 -r1.70
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 Nov 2018 11:15:16 -0000	1.69
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	28 Nov 2018 16:29:27 -0000	1.70
@@ -954,7 +954,8 @@
 
 } {
     set d [acs::test::http /]
-    acs::test::reply_contains $d "Main Site"
+    set main_node [site_node::get_from_url -url "/"]
+    acs::test::reply_contains $d [::lang::util::localize [dict get $main_node instance_name]]
 }
 
 aa_register_case \