diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index 1157afbb9..6998e654b 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -36,7 +36,9 @@
                                 (compile 'exp #:from 'elisp #:to 'value))))
     ((_ (pass-if-exception test-name exc exp))
      (pass-if-exception test-name exc
-                        (compile 'exp #:from 'elisp #:to 'value)))))
+                        (compile 'exp #:from 'elisp #:to 'value)))
+    ((_ (expect-fail test-name exp))
+     #f)))
 
 (define-syntax with-test-prefix/compile
   (syntax-rules ()