anchor.diff:                   (make-value (function-reference 'sys.int::%%bootloader-entry-point)
                                sys.int::+tag-object+)
                    initial-thread
  -                 :header-path header-path)))
  +                 image-size
  +                 header-path)))
   
   (defun load-source-files (files set-fdefinitions &optional wired)
     (mapc (lambda (f) (load-source-file f set-fdefinitions wired)) files))
  
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)
    (let* ((*wired-area-bump* +wired-area-base+)
           (*wired-area-data* (make-array #x1000 :element-type '(unsigned-byte 8) :adjustable t))
           (*wired-area-store* nil)
  
negative.code:       (read-sequence data s)
        data)))
  
  (defun write-image (name entry-fref initial-thread image-size header-path)
    (with-open-file (s (make-pathname :type "image" :defaults name)
                       :direction :output
                       :element-type '(unsigned-byte 8)
  