anchor.diff:        (replace header #(#x00 #x4D #x65 #x7A #x7A #x61 #x6E #x69 #x6E #x65 #x49 #x6D #x61 #x67 #x65 #x00)
                  :start1 0)
         ;; UUID.
  -      (dotimes (i 16)
  -        (setf (aref header (+ 16 i)) (case i
  -                                       (9 (logior #x40 (random 16)))
  -                                       (7 (logior (random 64) #x80))
  -                                       (t (random 256)))))
  +      (replace header uuid :start1 16)
         ;; Major version.
         (setf (ub16ref/le header 32) 0)
         ;; Minor version.
  
positive.code:       (setf (stack-store stack) *store-bump*)
        (incf *store-bump* (stack-size stack)))))
  
  (defun make-image (image-name &key extra-source-files header-path image-size map-file-name (architecture :x86-64))
    (let* ((sys.c::*target-architecture* architecture)
           (sys.int::*features* (list* sys.c::*target-architecture* sys.int::*features*))
           (*wired-area-bump* +wired-area-base+)
  
negative.code:                                    sys.int::+tag-object+)
                         initial-thread
                         image-size
                         header-path
                         uuid)))))
  
  (defun load-source-files (files set-fdefinitions &optional wired)
    (dolist (f files)
  