From fdadebdfc51806a88d64a4f16fbd8d86ba05a558 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Dec 2003 20:37:46 +0000
Subject: [PATCH] .

original commit: e4e8691d91997efc578ca5b35be1f657c004deeb
---
 collects/net/url-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss
index 40ec6f1..97122c1 100644
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@@ -403,7 +403,7 @@
       ;; purify-port : in-port -> header-string
       (define purify-port
         (lambda (port)
-	  (let ([m (regexp-match-peek-positions #rx"^.*?\r\n\r\n" port)])
+	  (let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n)|\n)((\r\n)|\n)" port)])
 	    (if m
 		(read-string (cdar m) port)
 		""))))