diff --git a/src/tests/normal-tests/ieee-fp.lsp b/src/tests/normal-tests/ieee-fp.lsp
index 2a553580d..0f3adf18a 100644
--- a/src/tests/normal-tests/ieee-fp.lsp
+++ b/src/tests/normal-tests/ieee-fp.lsp
@@ -795,7 +795,7 @@ Common Lisp type contagion rules."
 (test ieee-fp.0033.trap-fpe-smoke-test
       (let ((bits (si:trap-fpe 'cl:last t)))
         (unwind-protect
-             (dolist (flag '(t nil t))
+             (dolist (flag '(t nil))
                (finishes (si:trap-fpe t flag))
                (finishes (si:trap-fpe bits flag))
                (finishes (si:trap-fpe 'last flag))