diff --git a/collects/web-server/private/launch.ss b/collects/web-server/private/launch.ss
index 6884af754f..9d747ac966 100644
--- a/collects/web-server/private/launch.ss
+++ b/collects/web-server/private/launch.ss
@@ -61,7 +61,7 @@
    (lambda (flags)
      (configuration-table->web-config@
       (extract-flag 'config flags default-configuration-table-path)
-      #:port (or (port) 80)
+      #:port (port)
       #:listen-ip (extract-flag 'ip-address flags #f)))
    '()))