anchor.diff:  		;; Strip away the tag bits and advance past the header word.
   		(aref multiboot-header 3) (+ (logand (gethash multiboot-header object-values) #xFFFFFFF0) 8)
   		(aref multiboot-header 4) (- load-base #x1000)
  -		(aref multiboot-header 5) image-end
  +		(aref multiboot-header 5) support-end
   		(aref multiboot-header 6) (+ image-end bss-size)
   		(aref multiboot-header 7) (gethash setup-code object-values))
   	  ;; And the GDT.
  
positive.code:                (bss-size (+ (* control-stack-size 8)
                              (* data-stack-size 8)
                              (* binding-stack-size 8)))
                 (image-size (- image-end load-base))
                 (image (make-array (+ image-size #x1000) :element-type '(unsigned-byte 8)))
                 (object-values (make-hash-table)))
            (format t "Entry function MC size: ~D bytes~%" (length (genesis-function-assembled-code entry-function)))
  
negative.code:                                                               initial-stack-group entry-function
                                                                (mapcar 'cdr *function-preloads*)
                                                                (mapcar 'cdr *symbol-preloads*)))
        (multiple-value-bind (load-base phys-static-base phys-dynamic-base dynamic-end support-end image-end initial-cr3 page-tables)
  	  (generate-physical-dump-layout static-size dynamic-size)
  	(let* ((control-stack-size 4096)
                 (data-stack-size 4096)
  