Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -N -r1.30.2.3 -r1.30.2.4
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	13 Jul 2020 12:02:33 -0000	1.30.2.3
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	28 Jul 2020 11:08:53 -0000	1.30.2.4
@@ -1254,6 +1254,9 @@
                      -timeout $timeout \
                      -method $method \
                      -headers $headers]
+        if {[regexp {https://([^/]+)/} $url . hostname]} {
+            lappend cmd -hostname $hostname
+        }
         if {$body_file ne ""} {
             lappend cmd -body_file $body_file
         } elseif {$body ne ""} {
@@ -1263,7 +1266,7 @@
             lappend cmd -spoolsize 0
         }
         lappend cmd $url
-
+        #ns_log notice "NS_HTTP $cmd"
         set r [{*}$cmd]
     } else {
         # Older Naviservers used different commands depending if http