anchor.diff:        (read-sequence data s)
         data)))
   
  -(defun write-image (s entry-fref initial-thread image-size header-path)
  +(defun write-image (s entry-fref initial-thread image-size header-path uuid)
     (format t "Writing image file to ~A.~%" (namestring s))
     (let* ((image-header-data (when header-path
                                 (load-image-header header-path)))
  
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:       (replace header #(#x00 #x4D #x65 #x7A #x7A #x61 #x6E #x69 #x6E #x65 #x49 #x6D #x61 #x67 #x65 #x00)
                 :start1 0)
        ;; UUID.
        (replace header uuid :start1 16)
        ;; Major version.
        (setf (ub16ref/le header 32) 0)
        ;; Minor version.
  