diff --git a/src/contrib/defsystem/defsystem.lisp b/src/contrib/defsystem/defsystem.lisp
index 0f9be1b1c76cbd0f76b8c4dbcee6c4af33287c13..198c9095a06b50f2696418cbc25ff722d9a4a9ce 100644
--- a/src/contrib/defsystem/defsystem.lisp
+++ b/src/contrib/defsystem/defsystem.lisp
@@ -5492,4 +5492,9 @@ nil)
     (format t "done.~%")))
 
 
+#+cmu
+(setf (getf ext:*herald-items* :defsystem)
+      `(,#'(lambda (stream)
+	     (write-string (intl:gettext "    Defsystem ") stream)
+	     (write-string *defsystem-version*))))
 ;;; end of file -- defsystem.lisp --