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)
 		""))))