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.78.2.62 -r1.78.2.63
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	28 Jun 2017 21:13:23 -0000	1.78.2.62
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	12 Sep 2018 08:30:37 -0000	1.78.2.63
@@ -1690,10 +1690,17 @@
         #
         set secure_location $current_location
     } elseif {[util::split_location $current_location proto hostname port]} {
+        #
+        # Do not return a location with a port, when SuppressHttpPort
+        # is set.
+        #
+        set suppress_http_port [parameter::get -parameter SuppressHttpPort \
+                                    -package_id [apm_package_id_from_key acs-tcl] \
+                                    -default 0]
         set secure_location [util::join_location \
                                  -proto https \
                                  -hostname $hostname \
-                                 -port [security::get_https_port]]
+                                 -port [expr {$suppress_http_port ? "" : [security::get_https_port]}]]
     } else {
         error "invalid location $current_location"
     }