anchor.diff:  
      (style
       (theme:themed-css
  -        (theme *browser*)
  +        (if *browser*
  +            (theme *browser*)
  +            (make-instance 'theme:theme))
         (body
          :color theme:text
          :background-color theme:background
  
positive.code:     (dolist (file-slot-name file-slot-names)
        (setf (files:profile (slot-value buffer file-slot-name))
              (profile buffer))))
    (unless no-hook-p
      (hooks:run-hook (buffer-before-make-hook browser) buffer))
    ;; Background buffers are invisible to the browser.
    (when (and (focus-buffer-p buffer)
  
negative.code:   (gethash id (slot-value *browser* 'buffers)))
  
  (defun buffers-set (id buffer)
    (when *browser*
      (setf (gethash id (slot-value *browser* 'buffers)) buffer))
    (print-status))
  
  (defun buffers-delete (id)
  