diff --git a/test/level2.lisp b/test/level2.lisp
index 9830ec0..1001feb 100644
--- a/test/level2.lisp
+++ b/test/level2.lisp
@@ -71,7 +71,9 @@
     ((lambda-list-nc &key x &allow-other-keys (list :y 1))
      (pass))
     (_
-     (fail "should not match"))))
+     (fail "should not match")))
+  (signals error
+    (pattern-expand-1 `(lambda-list &key x &allow-other-keys (list :y 1)))))
 
 (test array
   (match #2A((0 1) (2 3))