Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.161 -r1.189.2.162
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	2 Feb 2023 11:05:50 -0000	1.189.2.161
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	7 Feb 2023 17:28:53 -0000	1.189.2.162
@@ -1956,7 +1956,7 @@
         # When the specified port is equal to the default port, omit
         # it from the result.
         #
-        if {$port ne "" && $port eq [dict get {http 80 https 443} $proto]} {
+        if {$port ne "" && $port eq [dict get {http 80 https 443 udp "" smtp ""} $proto]} {
             set port ""
         }
     }