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