From 29e1296e08d7a23cc509da385ca1b7ae24d835cd Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 26 Mar 2010 16:45:42 +0000
Subject: [PATCH] Correct the cookie contract function

svn: r18630

original commit: 3e546fee60f0902d384c7e7c7db597e7bd019ec9
---
 collects/net/cookie-unit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/net/cookie-unit.ss b/collects/net/cookie-unit.ss
index f7f19e9..64ff595 100644
--- a/collects/net/cookie-unit.ss
+++ b/collects/net/cookie-unit.ss
@@ -261,7 +261,8 @@
 
 ;; value: token | quoted-string
 (define (rfc2109:value? s)
-  (or (rfc2068:token? s) (rfc2068:quoted-string? s)))
+  (or (rfc2068:token? s) (rfc2068:quoted-string? s)
+      (rfc2068:quoted-string? (convert-to-quoted s))))
 
 ;; convert-to-quoted : string -> quoted-string?
 ;; takes the given string as a particular message, and converts the given