From 2285883d84f290672f6bcf7412feb9f49696eee3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 18 Sep 2003 19:33:23 +0000
Subject: [PATCH] .

original commit: 1c2b0e60f8b5b1bdc0bf5aae43b55af9ab2fe6b4
---
 collects/net/head-unit.ss | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/collects/net/head-unit.ss b/collects/net/head-unit.ss
index 8a8b963..15f44eb 100644
--- a/collects/net/head-unit.ss
+++ b/collects/net/head-unit.ss
@@ -119,9 +119,7 @@
 		  (let ([start (cdaddr m)]
 			[field-name (substring header (caaddr (cdr m)) (cdaddr (cdr m)))])
 		    (let ([m2 (regexp-match-positions 
-			       (format "[~a][~a][^: ~a~a]*:"
-				       #\return #\linefeed
-				       #\return #\linefeed)
+			       #rx"\r\n[^: \r\n\"]*:"
 			       header
 			       start)])
 		      (if m2