diff --git a/ansi-tests/find-if-not.lsp b/ansi-tests/find-if-not.lsp
index defe59405677cb2ead6ec74dba5c3d8ce8acd81e..8322503d095d4a17da599fc0283c830167ce4d58 100644
--- a/ansi-tests/find-if-not.lsp
+++ b/ansi-tests/find-if-not.lsp
@@ -484,6 +484,33 @@
    (nil #\6)
    (#\6)))
 
+
+;;; Keyword tests
+
+(deftest find-if-not.allow-other-keys.1
+  (find-if-not #'oddp '(1 2 3 4 5) :bad t :allow-other-keys t)
+  2)
+
+(deftest find-if-not.allow-other-keys.2
+  (find-if-not #'oddp '(1 2 3 4 5) :allow-other-keys t :also-bad t)
+  2)
+
+;;; The leftmost of two :allow-other-keys arguments is the one that  matters.
+(deftest find-if-not.allow-other-keys.3
+  (find-if-not #'oddp '(1 2 3 4 5)
+	    :allow-other-keys t
+	    :allow-other-keys nil
+	    :bad t)
+  2)
+
+(deftest find-if-not.keywords.4
+  (find-if-not #'oddp '(1 2 3 4 5) :key #'identity :key #'1+)
+  2)
+
+(deftest find-if-not.allow-other-keys.5
+  (find-if-not #'null '(nil a b c nil) :allow-other-keys nil)
+  a)
+
 ;;; Error tests
 
 (deftest find-if-not.error.1
diff --git a/ansi-tests/find-if.lsp b/ansi-tests/find-if.lsp
index d9f52e4745b43e74116a2b05e57dcbb1d9103725..6754f7b4ae83d9ebcc801db0c3727e82c465be1a 100644
--- a/ansi-tests/find-if.lsp
+++ b/ansi-tests/find-if.lsp
@@ -507,6 +507,33 @@
      ))
   #\2 #\4 #\1 #\5)
 
+;;; Keyword tests
+
+(deftest find-if.allow-other-keys.1
+  (find-if #'evenp '(1 2 3 4 5) :bad t :allow-other-keys t)
+  2)
+
+(deftest find-if.allow-other-keys.2
+  (find-if #'evenp '(1 2 3 4 5) :allow-other-keys t :also-bad t)
+  2)
+
+;;; The leftmost of two :allow-other-keys arguments is the one that  matters.
+(deftest find-if.allow-other-keys.3
+  (find-if #'evenp '(1 2 3 4 5)
+	    :allow-other-keys t
+	    :allow-other-keys nil
+	    :bad t)
+  2)
+
+(deftest find-if.keywords.4
+  (find-if #'evenp '(1 2 3 4 5) :key #'identity :key #'1+)
+  2)
+
+(deftest find-if.allow-other-keys.5
+  (find-if #'identity '(nil a b c nil) :allow-other-keys nil)
+  a)
+
+
 ;;; Error tests
 
 (deftest find-if.error.1
diff --git a/ansi-tests/find.lsp b/ansi-tests/find.lsp
index 1fc804a7e6ebd526f197515d59f05da2cdb26e75..026cc3bfc70a9e568745789830e089d35271764a 100644
--- a/ansi-tests/find.lsp
+++ b/ansi-tests/find.lsp
@@ -741,6 +741,35 @@
   (#\a #\b #\c #\d #\e nil nil nil nil nil)
   (#\a #\b #\c #\d #\e nil nil nil nil nil))
 
+;;; Keyword tests
+
+(deftest find.allow-other-keys.1
+  (find 0 '(1 2 3 4 5) :key #'(lambda (x) (mod x 2))
+	:bad t :allow-other-keys t)
+  2)
+
+(deftest find.allow-other-keys.2
+  (find 0 '(1 2 3 4 5) :key #'(lambda (x) (mod x 2))
+	       :allow-other-keys t :also-bad t)
+  2)
+
+;;; The leftmost of two :allow-other-keys arguments is the one that  matters.
+(deftest find.allow-other-keys.3
+  (find 0 '(1 2 3 4 5) :key #'(lambda (x) (mod x 2))
+	:allow-other-keys t
+	:allow-other-keys nil
+	:bad t)
+  2)
+
+(deftest find.keywords.4
+  (find 2 '(1 2 3 4 5) :key #'identity :key #'1+)
+  2)
+
+(deftest find.allow-other-keys.5
+  (find 'b '(nil a b c nil) :allow-other-keys nil)
+  b)
+
+
 ;;; Error tests
 
 (deftest find.error.1