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.78.2.45 -r1.78.2.46
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	16 Feb 2017 10:09:29 -0000	1.78.2.45
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	1 Mar 2017 23:55:56 -0000	1.78.2.46
@@ -1804,7 +1804,7 @@
         }
 
         #
-        # Oobtain information about secure locations.
+        # Obtain information about secure locations.
         #
         set sdriver [security::driver]
 
@@ -1999,8 +1999,13 @@
     if {[info exists $key]} {
         return $host
     }
-    
-    if {![util::split_location $host .proto hostName hostPort]} {
+
+    if {![string match *//* $host]} {
+        set splithost [ns_conn protocol]://$host
+    } else {
+        set splithost $host
+    }
+    if {![util::split_location $splithost .proto hostName hostPort]} {
         return ""
     }