Adding a work around for the compiler bug... plus I like it better. And adding a regression test for the compiler.

svn: r18619

original commit: 55c3176934

collects/tests/compiler/regression.ss

@@ -0,0 +1,17 @@
+#lang scheme
+(require net/cookie
+         tests/eli-tester)
+
+(define (set-when-true fn val)
+  (if val
+      (λ (c) (fn c val))
+      (λ (c) c)))
+
+(define (make-cookie name val)
+  ((lambda (x)
+     ((set-when-true cookie:add-comment #f)
+      x))
+   (set-cookie name val)))
+
+(test
+ (cookie? (make-cookie "name" "value")))