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.2 -r1.32.2.3
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	12 Jul 2004 21:02:30 -0000	1.32.2.2
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Jul 2004 22:52:13 -0000	1.32.2.3
@@ -1504,7 +1504,7 @@
         regsub {^(?:http://)?} $secure_location {https://} secure_location
 
 	# remove port number if using nonstandard port
-        regexp {^(.*):(.*)?} $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]