(IF (FBOUNDP 'PRINT-HERALD)
      (PRINT-HERALD)
    (SEND *STANDARD-OUTPUT* :FRESH-LINE)
    (PRINC "Lisp Machine cold load environment, beware!
;; *READ//PRINT-BASE* = ")
    (LET ((*PRINT-BASE* 10.))
      (PRINC *READ-BASE*))
    (PRINC ", *PACKAGE* = ")
    (PRINC (PACKAGE-NAME *PACKAGE*))
    (PRINC "."))

  ;; This process no longer needs to be able to run except for the usual reasons.
  ;; The delayed-restart processes may now be allowed to run
  (WHEN CURRENT-PROCESS
    (SEND CURRENT-PROCESS :REVOKE-RUN-REASON 'LISP-INITIALIZE)
    (WHEN WARM-BOOTED-PROCESS
      (FORMAT T "Warm boot while running ~S.
Its variable bindings remain in effect;