diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp
index 5e0a7b4d6ce1a7444f35558965cdacbb3ce11ad4..4603ac8f05ed7965ca1d0b110e10ced8d64409a7 100644
--- a/ansi-tests/flet.lsp
+++ b/ansi-tests/flet.lsp
@@ -449,3 +449,10 @@
   (flet ((%f (&key &allow-other-keys) 'good))
     (%f :a 1 :b 2))
   good)
+
+;;; NIL as a disallowed keyword argument
+(deftest flet.61
+  (signals-error
+   (flet ((%f (&key) :bad)) (%f nil nil))
+   program-error)
+  t)
\ No newline at end of file
diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp
index 0f40d290fbf8254dbe7eada39cf730f53c40f48b..97853cb457b1b62aa36ab71cd221be6a0d5284d2 100644
--- a/ansi-tests/labels.lsp
+++ b/ansi-tests/labels.lsp
@@ -265,3 +265,10 @@
   (labels ((%f (&key &allow-other-keys) 'good))
     (%f :a 1 :b 2))
   good)
+
+;;; NIL as a disallowed keyword argument
+(deftest labels.36
+  (signals-error
+   (labels ((%f (&key) :bad)) (%f nil nil))
+   program-error)
+  t)
\ No newline at end of file