Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.140.2.27 -r1.140.2.28
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	30 Mar 2016 17:04:31 -0000	1.140.2.27
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Apr 2016 06:14:46 -0000	1.140.2.28
@@ -2515,17 +2515,17 @@
 
     set section [ns_driversection -driver $driver]
 
-    switch $driver {
-        nsudp -
-        nssock {
+    switch -glob -- $driver {
+        nsudp* -
+        nssock* {
             set result(proto) http
             set result(port) [ns_config -int $section Port]
         }
         nsunix {
             set result(proto) http
             set result(port) {}
         }
-        nsssl - nsssle {
+        nsssl* - nsssle {
             set result(port) [ns_config -int $section Port]
             set result(proto) https
         }
@@ -4776,10 +4776,9 @@
 } {
     set request ""
     if {[ns_conn isconnected]} {
-        set headers [ns_conn headers]
         append request "    " \
             [ns_conn method] \
-            " http://[ns_set iget $headers host][ns_conn url]?[ns_conn query]" \
+            " [util_current_location][ns_conn url]?[ns_conn query]" \
             " referred by '[get_referrer]' peer [ad_conn peeraddr]"
     }
     ns_log $level "${message}\n[uplevel ad_get_tcl_call_stack]${request}\n"