From bc00b3dd4dddabc5a78b8afc1ac1a0046e54b4f1 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 31 Aug 2007 18:35:38 +0000
Subject: [PATCH] up

svn: r7244
---
 collects/web-server/servlet-env.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/servlet-env.ss b/collects/web-server/servlet-env.ss
index f61fed3a9b..7c42be1b02 100644
--- a/collects/web-server/servlet-env.ss
+++ b/collects/web-server/servlet-env.ss
@@ -61,7 +61,7 @@
                                    empty)))]
          [(shutdown-server)
           (serve #:dispatch servlet-dispatch
-                 #:port 9999)])
+                 #:port the-port)])
       (cache-table-lookup! the-scripts
                            (string->symbol
                             (path->string