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 -r1.78.2.3 -r1.78.2.4
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	14 Oct 2015 09:26:41 -0000	1.78.2.3
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	19 Oct 2015 09:03:48 -0000	1.78.2.4
@@ -1718,8 +1718,8 @@
     set host_post ""
 
     # set host_name
-    if {![regexp {(http://|https://)(.*?):(.*?)/?} [util_current_location] discard host_protocol host_name host_port]} {
-        regexp {(http://|https://)(.*?)/?} [util_current_location] discard host_protocol host_name
+    if {![regexp {(http://|https://)(.*?):(.*?)/?} [util_current_location] . host_protocol host_name host_port]} {
+        regexp {(http://|https://)(.*?)/?} [util_current_location] . host_protocol host_name
     }
 
     set driver_section [ns_driversection -driver $driver]
@@ -1728,7 +1728,7 @@
     # not same as from config.tcl, may help with proxy issues etc
     set config_hostname [ns_config $driver_section hostname]
     if { $config_hostname ne $host_name } {
-        ns_log Warning "security::locations hostname '[ns_config $driver_section hostname]' from config.tcl does not match from util_current_location: $host_name"
+        ns_log notice "security::locations hostname '[ns_config $driver_section hostname]' from config.tcl does not match from util_current_location: $host_name"
     }
 
     # insecure locations
@@ -1786,7 +1786,7 @@
                                       get_node_host_names "select host from host_node_map"]
     # fastest place for handling this special case:
     if { $config_hostname ne $host_name } {
-        ns_log Notice "security::locations adding $config_hostname since utl_current_location different than config.tcl."
+        #ns_log Notice "security::locations adding $config_hostname since utl_current_location different than config.tcl."
         lappend host_node_map_hosts_list $config_hostname
     }
     if { [llength $host_node_map_hosts_list] > 0 } {