From 8b4bc1c7fbf086e8e87988ad43e30617733da9ed Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 11 Dec 2003 04:07:37 +0000
Subject: [PATCH] .

original commit: 4957335f442567e28eb7397a449e3c3f8c8acbbd
---
 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 7fa1055..0d1704e 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"^HTTP/.*?((\r\n)|\n|\r)((\r\n)|\n|\r)" port)])
+	  (let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n\r\n)|(\n\n)|(\r\r))" port)])
 	    (if m
 		(read-string (cdar m) port)
 		""))))