anchor.diff:  (defun backtrace-thread (thread)
     (map-thread-backtrace
      thread
  -   (lambda (stack-pointer frame-pointer return-address fn)
  -     (format t "~X ~X ~X ~S~%" stack-pointer frame-pointer return-address fn))))
  +   (lambda (stack-pointer frame-pointer return-address fn fn-offset)
  +     (format t "~X ~X ~X ~S+~D~%" stack-pointer frame-pointer return-address fn fn-offset))))
   
   (defun dump-thread-stack (thread &optional limit)
     (loop
  
positive.code:       (ignore-errors
          (mezzano.supervisor::resume-thread thread)))))
  
  (defun print-safely-to-string (obj)
    (handler-case
        (format nil "~S" obj)
  
negative.code:               ;; Return address should be the first entry on the stack.
                (memref-unsigned-byte-64 stack-pointer (1- layout-length))))))))
  
  (defun map-thread-backtrace (thread function)
    (check-type thread mezzano.supervisor:thread)
    (multiple-value-bind (stack-pointer frame-pointer return-address)
        (cond ((mezzano.supervisor:thread-full-save-p thread)
  