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 } {
Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -N -r1.61.2.3 -r1.61.2.4
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	17 May 2020 13:39:44 -0000	1.61.2.3
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	17 May 2020 17:04:11 -0000	1.61.2.4
@@ -1655,7 +1655,7 @@
 } {
     #
     # We can't really use "string is integer -strict", since it allows
-    # numbers, which are invalid for e.h. SQL... e.g. "0x40".
+    # numbers, which are invalid for e.g. SQL... e.g. "0x40".
     #
     ## First simple a quick check avoiding the slow regexp
     #if {[string is integer -strict $value]} {
@@ -1683,7 +1683,7 @@
 } {
 
     # We can't really use "string is integer -strict", since it allows
-    # numbers, which are invalid for e.h. SQL... e.g. "0x40".
+    # numbers, which are invalid for e.g. SQL... e.g. "0x40".
     #
     # First a simple quick check to avoid the slow regexp
     # if {[string is integer -strict $value] && $value >= 0} {