diff --git a/pkgs/racket-test-core/tests/racket/optimize.rktl b/pkgs/racket-test-core/tests/racket/optimize.rktl
index c4a1ac3674..43a0abae7f 100644
--- a/pkgs/racket-test-core/tests/racket/optimize.rktl
+++ b/pkgs/racket-test-core/tests/racket/optimize.rktl
@@ -2010,7 +2010,7 @@
              (define-values (x y) (values (car p) (cdr p)))
              (values y x))
            '(lambda (p)
-             (values (#%unsafe-cdr p) (car p)))
+             (values (unsafe-cdr p) (car p)))
            #f)
 (test-comp '(lambda (p)
              (define-values (x y) (values (car p) (cdr p)))