Index: /trunk/source/lib/describe.lisp
===================================================================
--- /trunk/source/lib/describe.lisp	(revision 12755)
+++ /trunk/source/lib/describe.lisp	(revision 12756)
@@ -1169,5 +1169,5 @@
                                               "Arglist unknown")))
                                  (list arglist label (if type :colon '(:comment (:plain)))))))
-                       (when doc (list (substitute #\space #\newline doc) "Documentation" :colon))
+                       (when doc (list (list (substitute #\space #\newline doc) "Documentation" :colon)))
                        (when sn (list (list sn "Source Location" :colon))))))
     (setf (slot-value f 'header-lines) lines)