From 5b9ccf32ae92a019bd521270aceed23d447a0a42 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 27 Nov 2006 14:02:28 +0000
Subject: [PATCH] pr8404

svn: r4960
---
 collects/web-server/private/mime-types.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/private/mime-types.ss b/collects/web-server/private/mime-types.ss
index 79d68543ea..215ff217fd 100644
--- a/collects/web-server/private/mime-types.ss
+++ b/collects/web-server/private/mime-types.ss
@@ -19,7 +19,7 @@
       (with-input-from-file a-path
         (lambda ()
           (let loop ()
-            (match (read-line)
+            (match (read-line (current-input-port) 'any)
               [(? eof-object?)
                (void)]
               [(regexp #"^([^\t ]+)[\t ]+(.+)$"