diff --git a/test/automated/subr-tests.el b/test/automated/subr-tests.el
index e782f7b1ee1..ee8db593b49 100644
--- a/test/automated/subr-tests.el
+++ b/test/automated/subr-tests.el
@@ -96,7 +96,7 @@
                   (setq x (1+ x))
                   x))
     (should (= x 1))
-    (should (= 2 (when true
+    (should (= 2 (when t
                    (setq x (1+ x))
                    x)))
     (should (= x 2)))