diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index cabf2b6ce732d223e796fc998eed087b68f0931e..e21b76249daa79c2ff06c3291e7603e5803717bc 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.83 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.84 2010/02/19 15:01:38 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -397,11 +397,18 @@
 	      "FASL FILE output from ~A.~@
 	       Compiled ~A on ~A~@
 	       Compiler ~A, Lisp ~A~@
+               CMUCL dumped on: ~A on ~A~@
 	       Targeted for ~A, FASL version ~X~%"
 	      where
 	      (ext:format-universal-time nil (get-universal-time))
 	      (machine-instance) compiler-version
 	      (lisp-implementation-version)
+	      (let ((dump-time (if (boundp 'lisp::*cmucl-core-dump-time*)
+				   lisp::*cmucl-core-dump-time*
+				   nil)))
+		(when dump-time
+		  (ext:format-universal-time nil dump-time :style :iso8601)))
+	      lisp::*cmucl-core-dump-host*
 	      version f-vers)
       ;;
       ;; Terminate header.