diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 8775a5c77..a6fd0624c 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -284,7 +284,7 @@ strings."
 			   `(,report-function x stream))))))
       ,@(when documentation
 	      `((EVAL-WHEN (COMPILE LOAD EVAL)
-		  (SETF (DOCUMENTATION ',name) ',documentation))))
+		  (SETF (DOCUMENTATION ',name 'TYPE) ',documentation))))
       ',NAME)))
 
 (defun make-condition (type &rest slot-initializations)