diff --git a/collects/typed-scheme/optimizer/optimizer.rkt b/collects/typed-scheme/optimizer/optimizer.rkt
index 594941e026..8a23a82d8a 100644
--- a/collects/typed-scheme/optimizer/optimizer.rkt
+++ b/collects/typed-scheme/optimizer/optimizer.rkt
@@ -49,7 +49,7 @@
                            (cons (car l)
                                  (map (optimize) (cdr l)))))
                        #'([formals e ...] ...))
-           #:with opt (syntax/loc/origin this-syntax #'op (case-lambda opt-parts ...)))
+           #:with opt (syntax/loc/origin this-syntax #'op (op opt-parts ...)))
   (pattern ((~and op (~or (~literal let-values) (~literal letrec-values)))
             ([ids e-rhs:expr] ...) e-body:expr ...)
            #:with (opt-rhs ...) (syntax-map (optimize) #'(e-rhs ...))