anchor.diff:  						     +page-table-present+
   						     +page-table-writable+
   						     +page-table-large+))))
  -      (format t "Static-base: ~X  Dynamic-base: ~X  Support-base: ~X  End: ~X~%"
  -	      static-base dynamic-base support-base end-address)
  -      (values load-offset static-base dynamic-base support-base end-address
  +      (format t "Static-base: ~X  Dynamic-base: ~X  Support-base: ~X  End: ~X (~X)~%"
  +	      static-base dynamic-base support-base end-address zero-fill-end)
  +      (values load-offset static-base dynamic-base support-base end-address zero-fill-end
   	      pml4 page-tables))))
   
   (defun make-setup-function (gdt idt initial-page-table entry-function initial-stack-group)
  
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: 	   ;; Four PML2s to map the first 4GB of the linear region.
  	   (pml2-linear (incf end-address (* 4 #x1000))))
        (incf end-address (* 4 #x1000))
        ;; Align to 2MB.
        (setf zero-fill-start (* (ceiling end-address #x200000) #x200000)
              zero-fill-end zero-fill-start)
        ;; Create the PML4.
        (setf (aref page-tables 0 0) (logior pml3-normal
  					   +page-table-present+
  