anchor.diff:  
   (defun make-freelist-header (len)
     (when *gc-debug-freelist-rebuild*
  -    (mezzano.supervisor:debug-print-line "hdr " len))
  +    (gc-log "hdr " len))
     (logior *pinned-mark-bit*
             (ash +object-tag-freelist-entry+ +object-type-shift+)
             (ash (align-up len 2) +object-data-shift+)))
  
positive.code:            (gc-info-for-function-offset fn fn-offset)
           (when *gc-debug-metadata*
             (flet ((bad-metadata (message)
                      (let ((*gc-debug-scavenge-stack* t))
                        (mezzano.supervisor:debug-print-line "RA: " return-address)
                        (mezzano.supervisor:debug-print-line "FP: " frame-pointer)
                        (mezzano.supervisor:debug-print-line "SP: " stack-pointer)
                        (mezzano.supervisor:debug-print-line "FNa: " fn-address)
                        (mezzano.supervisor:debug-print-line "FNo: " fn-offset)
                        (debug-stack-frame framep interruptp pushed-values pushed-values-register
                                           layout-address layout-length
                                           multiple-values incoming-arguments
  
negative.code:        (let* ((len (ash (memref-unsigned-byte-64 current 0) (- +object-data-shift+)))
                (next-addr (+ current (* len 8))))
           (when *gc-debug-freelist-rebuild*
             (gc-log "len: " len "  next: " next-addr))
           (when (>= next-addr limit)
             (when *gc-debug-freelist-rebuild*
               (gc-log "done (limit)"))
             (when mezzano.runtime::*paranoid-allocation*
               (dotimes (i (- len 2))
                 (setf (memref-signed-byte-64 current (+ i 2)) -1)))
  