anchor.diff:        (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 (* 256 1024 1024)))
  +(defun make-image (image-name &key extra-source-files header-path image-size map-file-name)
     (let* ((*wired-area-bump* +wired-area-base+)
            (*wired-area-data* (make-array #x1000 :element-type '(unsigned-byte 8) :adjustable t))
            (*wired-area-store* nil)
  
positive.code:       (set-value 'sys.int::*stack-area-bump* +stack-area-base+))
      (setf (cold-symbol-value 'sys.int::*structure-type-type*) (make-value *structure-definition-definition* sys.int::+tag-object+))
      (apply-fixups *pending-fixups*)
      (write-map-file image-name *function-map*)
      (write-image image-name
                   (make-value (function-reference 'sys.int::%%bootloader-entry-point)
                               sys.int::+tag-object+)
                   initial-thread
                   image-size
                   header-path)))
  
  (defun load-source-files (files set-fdefinitions &optional wired)
    (mapc (lambda (f) (load-source-file f set-fdefinitions wired)) files))
  
negative.code:           (setf (word (+ obarray 1 i)) (make-value (store-string object) sys.int::+tag-object+)))
      (setf (cold-symbol-value target-symbol) (make-value obarray sys.int::+tag-object+))))
  
  (defun write-map-file (pathname map)
    (with-open-file (s pathname
                       :direction :output
                       :if-exists :supersede)
      (let ((*print-right-margin* 10000))
  