diff --git a/code/describe.lisp b/code/describe.lisp
index f47d9be184a3e6ef4661144f768c9dca30c1cf46..f63e49bed0fce1528253923d9a3c3ef8e584d9fe 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -264,8 +264,11 @@
 	  (let ((name (c::debug-source-name source)))
 	    (ecase (c::debug-source-from source)
 	      (:file
-	       (format t "~&~A " (namestring name))
-	       (ext:format-universal-time t (c::debug-source-created source)))
+	       (format t "~&~A~%  Created: " (namestring name))
+	       (ext:format-universal-time t (c::debug-source-created source))
+	       (let ((comment (c::debug-source-comment source)))
+		 (when comment
+		   (format t "~&  Comment: ~A" comment))))
 	      (:stream (format t "~&~S" name))
 	      (:lisp (format t "~&~S" name)))))))))