diff --git a/code/save.lisp b/code/save.lisp
index 7969c9c0a140b5a14d1661355d61897dbc9d4666..1198b0d07f54878c953fb71677809a5cc4f6b5ff 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -8,7 +8,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.1 1990/06/17 02:08:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.2 1990/06/25 21:00:16 wlott Exp $
 ;;;
 ;;; Dump the current lisp image into a core file.  All the real work is done
 ;;; be C.
@@ -133,11 +133,17 @@
 
 
 (defun print-herald ()
-  (write-string "CMU Common Lisp ")
-  (write-line (lisp-implementation-version))
-  (write-string "Hemlock ")
-  (write-string *hemlock-version*)
-  (write-string ", Compiler ")
-  (write-line #+nil compiler-version #-nil "What compiler?")
-  (write-line "Send bug reports and questions to Gripe.")
+  (macrolet ((frob (variable)
+	       `(if (boundp ',variable)
+		    ,variable
+		    "<not loaded>")))
+    (write-string "CMU Common Lisp ")
+    (write-string (lisp-implementation-version))
+    (write-string ", running on ")
+    (write-line (machine-instance))
+    (write-string "Hemlock ")
+    (write-string (frob *hemlock-version*))
+    (write-string ", Compiler ")
+    (write-line (frob compiler-version))
+    (write-line "Send bug reports and questions to Gripe."))
   (values))