diff --git a/code/save.lisp b/code/save.lisp
index 64b1799db45d906df1dd94e00650478beddf5359..013ddfa73757c9b947489f77ebbc97c893956561 100644
--- a/code/save.lisp
+++ b/code/save.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/code/save.lisp,v 1.59 2009/06/11 16:03:59 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.60 2009/07/10 04:17:49 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -343,6 +343,23 @@
 	terpri
 	"Loaded subsystems:"))
 
+#+unicode
+(setf (getf *herald-items* :unicode)
+      `("    Unicode "
+	,(if (and (boundp 'lisp::*unidata-version*)
+		  (>= (length lisp::*unidata-version*) 11))
+	     (subseq lisp::*unidata-version* 11
+		     (1- (length lisp::*unidata-version*)))
+	     "")
+	" with Unicode version "
+	,#'(lambda (stream)
+	     (princ lisp::+unicode-major-version+ stream)
+	     (write-char #\. stream)
+	     (princ lisp::+unicode-minor-version+ stream)
+	     (write-char #\. stream)
+	     (princ lisp::+unicode-update-version+ stream))
+	terpri))
+
 ;;; PRINT-HERALD  --  Public
 ;;;
 (defun print-herald (&optional (stream *standard-output*))
diff --git a/code/unidata.lisp b/code/unidata.lisp
index 1863bfa7d677c5448ec964f5287791fe56a410b5..9b892b4fe645c4e5aec2149f8a3f3199b8772b20 100644
--- a/code/unidata.lisp
+++ b/code/unidata.lisp
@@ -4,7 +4,7 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;; 
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.4 2009/07/02 21:00:48 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unidata.lisp,v 1.5 2009/07/10 04:17:49 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,6 +14,8 @@
 
 (defconstant +unidata-path+ #p"ext-formats:unidata.bin")
 
+(defvar *unidata-version* "$Revision: 1.5 $")
+
 (defstruct unidata
   range
   name+