Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.12 -r1.153.2.13
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	16 Nov 2019 15:34:52 -0000	1.153.2.12
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	16 Nov 2019 15:56:59 -0000	1.153.2.13
@@ -1855,12 +1855,12 @@
 } {
     set key ::acs::root_of_host($host)
     if {[info exists $key]} {return [set $key]}
-    set $key [root_of_host_noncached $host]
+    set $key [acs::root_of_host_noncached $host]
 }
 
 
 
-ad_proc -private root_of_host_noncached {host} {
+ad_proc -private acs::root_of_host_noncached {host} {
 
     Helper function for root_of_host, which performs the actual work.