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