From 02147ef4f387018ee645f3642ec79758b0a974d3 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 10 Dec 2008 17:22:43 +0000 Subject: [PATCH] Fixing regression svn: r12764 --- collects/web-server/private/launch.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) '()))