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.32.2.3 -r1.32.2.4
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Jul 2004 22:52:13 -0000	1.32.2.3
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Jul 2004 23:16:04 -0000	1.32.2.4
@@ -1504,13 +1504,14 @@
         regsub {^(?:http://)?} $secure_location {https://} secure_location
 
 	# remove port number if using nonstandard port
-        regexp {^([^:]+):([0-9]+)} $secure_location match secure_location port
+        regexp {^(.*:.*):([0-9]+)} $secure_location match secure_location port
 
         # Add port number if non-standard
         set https_port [get_https_port]
         if { ![string equal $https_port 443] } {
             set secure_location ${secure_location}:$https_port
         }
+
     }
 
     return $secure_location