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.27 -r1.126.2.28
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 May 2020 10:28:38 -0000	1.126.2.27
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	17 May 2020 17:04:10 -0000	1.126.2.28
@@ -2384,7 +2384,7 @@
     # Add locations from host_node_map
     #
     set host_node_map_hosts_list [acs::site_nodes_id_cache eval security-locations-host-names { 
-        db_list get_node_host_names get_node_host_names {select host from host_node_map}
+        db_list get_node_host_names {select host from host_node_map}
     }]
     if { [llength $host_node_map_hosts_list] > 0 } {
         if { $suppress_http_port } {