diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt
index f5a9cb1c23..7f1d2c6bdb 100644
--- a/collects/racket/contract/private/arrow.rkt
+++ b/collects/racket/contract/private/arrow.rkt
@@ -296,7 +296,7 @@ v4 todo:
                                                               "received ~a argument~a, expected ~a"
                                                               args-len (if (= args-len 1) "" "s") arity-string))
                                          (apply basic-lambda-name args))
-                                     #'(λ args
+                                     #`(λ args
                                          (raise-blame-error (blame-swap blame) val
                                                             "expected required keyword ~a"
                                                             (quote #,(car req-keywords)))))]