diff --git a/ansi-tests/apropos.lsp b/ansi-tests/apropos.lsp
index baec6655431c3157ab1bbfb9aa7b52259e88f0a8..a0dc0d0bf93dda8978ac078bebe64b9c35028f74 100644
--- a/ansi-tests/apropos.lsp
+++ b/ansi-tests/apropos.lsp
@@ -62,6 +62,13 @@
     (notnot (search "CAR" s :test #'string-equal)))
   t)
 
+(deftest apropos.8
+  (let ((s (with-output-to-string
+	     (*standard-output*)
+	     (assert (null (multiple-value-list (apropos "CAR" nil)))))))
+    (notnot (search "CAR" s :test #'string-equal)))
+  t)
+
 ;;; Error tests
 
 (deftest apropos.error.1