Fixing cookie regex

collects/net/cookie-unit.ss

@@ -255,7 +255,7 @@
 ;; appear as a block to be legal, and " may only appear as \"
 (define (rfc2068:quoted-string? s)
   (and (regexp-match?
-        #rx"^\"([^\"#\u0000-#\u001F]| |#\return#\newline|#\tab|\\\\\")*\"$"
+        #rx"^\"([^\"\u0000-\u001F]| |\r\n|\t|\\\\\")*\"$"
         s)
        s))
 

collects/tests/net/cookie.ss

@@ -79,6 +79,17 @@
       (cookie-error-test (RC cookie:add-domain "bad domain.com"))
       (cookie-error-test (RC cookie:add-domain ".bad-domain;com")))
     
+    ; cookie value
+    (test
+     (cookie-value? "value")
+     (cookie-value? "(")
+     (cookie-value? "!")
+     (cookie-value? ")")
+     (cookie-value? ")!")
+     (cookie-value? "(!")
+     (cookie-value? "(!)")
+     (cookie-value? "!)"))
+    
     )
   
   (test do (tests)))