anchor.diff:      (format t "Next version ~a~&" +version+)
       (setf *session* (derive-session *session*))
       (unless (getf *options* :no-init)
  -      (load-lisp-file init-file :interactive t))
  +      (load-lisp init-file :interactive t))
       (setf *browser* (make-instance *browser-class*
                                      :startup-timestamp startup-timestamp))
       (when (single-instance-p *browser*)
  
positive.code:     (when (or (getf options :load)
                (getf options :eval))
        (unless (getf options :no-init)
          (load-lisp-file (init-file-path) :interactive nil))
        ;; We need a browser instance so that listen-socket-p can know the socket path.
        ;; TODO: Use (get-default ...) instead?  Ideally, socket could also
        ;; be a command line parameter so that multiple instances can be started.
  
negative.code: (defparameter *load-init-error-message* "Error: we could not load the init file")
  (defparameter *load-init-type-error-message* (str:concat *load-init-error-message* " because of a type error."))
  
  (declaim (ftype (function (trivial-types:pathname-designator &key (:interactive t)))
                  load-lisp))
  (defun load-lisp (file &key interactive)
    "Load the Lisp FILE (or stream).
     If FILE is \"-\", read from the standard input.
     If INTERACTIVE is t, allow the debugger on errors. If :running, show
  