Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.126.2.29 -r1.126.2.30
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	19 May 2020 19:15:37 -0000	1.126.2.29
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 May 2020 12:18:19 -0000	1.126.2.30
@@ -885,7 +885,7 @@
     # assumes that the host-node-map is always short. This allows us
     # as well to purge the entries without a pattern match.
     #
-    set mapping [acs::site_nodes_id_cache eval ad_get_host_node_map { 
+    set mapping [acs::misc_cache eval ad_get_host_node_map { 
         db_list_of_lists get_node_host_names {select host, node_id from host_node_map}
     }]
     set p [lsearch -index 0 -exact $mapping $hostname]
@@ -2383,7 +2383,7 @@
     #
     # Add locations from host_node_map
     #
-    set host_node_map_hosts_list [acs::site_nodes_id_cache eval security-locations-host-names { 
+    set host_node_map_hosts_list [acs::misc_cache eval security-locations-host-names { 
         db_list get_node_host_names {select host from host_node_map}
     }]
     if { [llength $host_node_map_hosts_list] > 0 } {