diff --git a/collects/tests/compiler/regression.ss b/collects/tests/compiler/regression.ss
new file mode 100644
index 0000000000..4a2b58fdc4
--- /dev/null
+++ b/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")))
\ No newline at end of file