anchor.diff:                     (expand-path path))
                (setf (get-data path) history)
                (when restore-buffers-p
  -               (restore-buffers history)))
  +               (restore-buffers history))
  +             history)
   
              (restore-flat-history (old-history old-path)
                (echo "Importing deprecated global history of ~a URLs from ~s."
  
positive.code:                                        :basename name)))
      (let ((old-buffers (buffer-list)))
        (setf (get-data path) (make-history-tree))
        (restore (data-profile (current-buffer)) path :restore-buffers-p t)
        ;; TODO: Maybe modify `history-path' of all the buffers instead of polluting history?
        (setf (get-data (history-path (current-buffer))) (get-data path))
        (dolist (buffer old-buffers)
          (buffer-delete buffer)))))
  
negative.code:                             ;; twice.
                              (setf (last-access data) "")
                              (htree:add-entry history data last-access)))
                          old-history)
                 history)))
      (with-muffled-body ("Failed to restore history from ~a: ~a"
                          (expand-path path) :condition)
        (let* ((path (if (uiop:file-exists-p (expand-path path))
  