diff --git a/ansi-tests/destructuring-bind.lsp b/ansi-tests/destructuring-bind.lsp
index 4d7b7396377814615bfea538e06e22bcb7a79776..623e6477f1ffee3699463e6e093db63595517a6e 100644
--- a/ansi-tests/destructuring-bind.lsp
+++ b/ansi-tests/destructuring-bind.lsp
@@ -101,12 +101,12 @@
   1 2 3)
 
 (deftest destructuring-bind.22
-  (destructuring-bind (x y &key) '(1 2) (values x y))
-  1 2)
+  (destructuring-bind (x y &key) '(:a 2) (values x y))
+  :a 2)
 
 (deftest destructuring-bind.23
-  (destructuring-bind (&rest x &key) '(1) x)
-  (1))
+  (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)
+  (:allow-other-keys 1))
 
 ;;; Error cases