diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl
index 3e0ee17acc..9e562de543 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl
@@ -1575,6 +1575,13 @@
            '(lambda (x y)
               (list (if x x y) (+ x y))))
 
+(test-comp '(lambda (x y)
+              (let ([z (car y)])
+                (if x x z)))
+           '(lambda (x y)
+              (if x x (car y)))
+           #f)
+
 (test-comp '(let-values ([(x y) (values 1 2)])
               (+ x y))
            3)