diff --git a/collects/tests/web-server/pr/galler.rkt b/collects/tests/web-server/pr/galler.rkt
new file mode 100644
index 0000000000..fe24e2e438
--- /dev/null
+++ b/collects/tests/web-server/pr/galler.rkt
@@ -0,0 +1,6 @@
+#lang web-server
+(require racket/serialize
+         rackunit)
+
+(check-true (serializable? (λ (x) x)))
+(check-true (serializable? (first (list (λ (x) x)))))
diff --git a/collects/web-server/lang/util.rkt b/collects/web-server/lang/util.rkt
index 148e891257..e184e14feb 100644
--- a/collects/web-server/lang/util.rkt
+++ b/collects/web-server/lang/util.rkt
@@ -48,7 +48,7 @@
      (list* #'rv (syntax->list #'(v ...)))]))
 
 (define ((make-define-case inner) stx)
-  (syntax-case stx (define-values define-syntaxes define-values-for-syntax)
+  (syntax-case stx (define-values define-syntaxes define-values-for-syntax #%require)
     [(define-values (v ...) ve)
      (let-values ([(nve) (inner #'ve)])
        (quasisyntax/loc stx