Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.43.8.1 -r1.43.8.2
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	27 Aug 2013 12:20:36 -0000	1.43.8.1
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	27 Oct 2013 14:26:46 -0000	1.43.8.2
@@ -903,12 +903,10 @@
 
         util_driver_info -array request
 
-        set headers [ns_conn headers]
-        set host_addr [split [ns_set iget $headers host] :]
-        set request(vhost) [lindex $host_addr 0]
+	lassign [split [ns_set iget [ns_conn headers] host] :] request(vhost) provided_port
 
-        if {[lindex $host_addr 1] ne "" } {
-            set request(port) [lindex $host_addr 1]
+        if {$provided_port ne "" } {
+            set request(port) $provided_port
         }
 
         set request_vhost_p [expr {$main_host ne $request(vhost) }]