diff --git a/ansi-tests/defmethod.lsp b/ansi-tests/defmethod.lsp
index 4971b6bc7a54512e44f06989448564a8c5fe645c..d4d5e3c9ec6782db5306a8678446d32181311644 100644
--- a/ansi-tests/defmethod.lsp
+++ b/ansi-tests/defmethod.lsp
@@ -210,10 +210,21 @@
 	    (eval `(signals-error (,sym 1 2) program-error))))
   t t)
 
+(deftest defmethod.error.14
+  (let ((sym (gensym)))
+    (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key) x)))
+    (values (eval `(signals-error (,sym) program-error))
+	    (eval `(signals-error (,sym 1 2) program-error))
+	    (eval `(signals-error (,sym 1 :bogus t) program-error))
+	    (eval `(signals-error (,sym 1 :allow-other-keys nil :allow-other-keys t :bogus t) program-error))))
+  t t t t)
 
-
-
-
-
+(deftest defmethod.error.15
+  (let ((sym (gensym)))
+    (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key y) x)))
+    (values (eval `(signals-error (,sym 1 :bogus t) program-error))
+	    (eval `(signals-error (,sym 1 :y) program-error))
+	    (eval `(signals-error (,sym 1 3 nil) program-error))))
+  t t t)