diff --git a/ansi-tests/define-modify-macro.lsp b/ansi-tests/define-modify-macro.lsp
index 89e39273af9961f31283492a10ffdf2435387b6d..a6c13e386010f4fa05fe2963fc4a680568caddbc 100644
--- a/ansi-tests/define-modify-macro.lsp
+++ b/ansi-tests/define-modify-macro.lsp
@@ -84,3 +84,24 @@
 
 (def-macro-test define-modify-macro.error.1
   (define-modify-macro nonexistent-modify-macro () foo))
+
+;;; Documentation tests
+
+(deftest define-modify-macro.documentation.1
+  (let ((sym (gensym)))
+    (eval `(define-modify-macro ,sym (&optional (delta 1)) +))
+    (values
+     (documentation sym 'function)
+     (documentation (macro-function sym) 'function)
+     (documentation (macro-function sym) t)))
+  nil nil nil)
+
+(deftest define-modify-macro.documentation.2
+  (let ((sym (gensym))
+	(doc "DMM-DOC"))
+    (eval `(define-modify-macro ,sym (&optional (delta 1)) + ,doc))
+    (values
+     (equalt doc (or (documentation sym 'function) doc))
+     (equalt doc (or (documentation (macro-function sym) 'function) doc))
+     (equalt doc (or (documentation (macro-function sym) t) doc))))
+  t t t)