diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 9090f6fb3..e83dbd70c 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -242,8 +242,8 @@ strings."
 			   `(write-string ,report-function stream)
 			   `(,report-function x stream))))))
       ,@(when documentation
-	      `(EVAL-WHEN (COMPILE LOAD EVAL)
-		(SETF (GET ',name 'DOCUMENTATION) ',documentation)))
+	      `((EVAL-WHEN (COMPILE LOAD EVAL)
+		  (SETF (GET ',name 'DOCUMENTATION) ',documentation))))
       ',NAME)))
 
 (defun make-condition (type &rest slot-initializations)