diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp
index 885a16a6e36cf202c255fd2fb0eaeba0d2be4f38..32a844ad4b7c3b9c9742bba122886e868167b41e 100644
--- a/ansi-tests/defun.lsp
+++ b/ansi-tests/defun.lsp
@@ -73,6 +73,15 @@
       (defun-test-fun-5)))
   2 1)
 
+;; Documentation
+
+(deftest defun.8
+  (let* ((sym (gensym))
+	 (doc "DEFUN.8")
+	 (form `(defun ,sym () ,doc nil)))
+    (or (documentation sym 'function) doc))
+  "DEFUN.8")
+
 ;;; Error tests
 
 (deftest defun.error.1