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.33 -r1.34
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Jun 2004 10:17:44 -0000	1.33
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	24 Jul 2004 08:34:07 -0000	1.34
@@ -1503,6 +1503,9 @@
         # Prefix with https
         regsub {^(?:http://)?} $secure_location {https://} secure_location
 
+	# remove port number if using nonstandard port
+        regexp {^(.*):(.*)?} $secure_location match secure_location port
+
         # Add port number if non-standard
         set https_port [get_https_port]
         if { ![string equal $https_port 443] } {