diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss
index ca31115..b1aef3c 100644
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@@ -126,9 +126,7 @@
             (display "\r\n" client->server))
           (println (if get? "GET " "POST ") access-string " HTTP/1.0")
           (println "Host: " (url-host url)
-                   (let ([p (url-port url)])
-                     (if (equal? p (url->default-port url))
-                       "" (format ":~a" p))))
+                   (let ([p (url-port url)]) (if p (format ":~a" p) "")))
           (when post-data (println "Content-Length: " (bytes-length post-data)))
           (for-each println strings)
           (println)