anchor.diff:                                   (make-minibuffer
                                     :input-prompt "Load file"
                                     :show-completion-count nil)))
  -    (load-lisp-file file-name-input :interactive interactive)))
  +    (load-lisp file-name-input :interactive interactive)))
   
   (define-command load-init-file (&key (init-file (init-file-path))
                                   (interactive :running))
     "Load or reload the init file.
      If INTERACTIVE is t, allow the debugger on errors.
      If :running, show an error but don't quit the Lisp process."
  -  (load-lisp-file init-file :interactive interactive))
  +  (load-lisp init-file :interactive interactive))
   
   (defun eval-expr (expr)
     "Evaluate the form EXPR (string) and print the result of the last expresion."
  
positive.code:     (format t "Next version ~a~&" +version+)
      (setf *session* (derive-session *session*))
      (unless (getf *options* :no-init)
        (load-lisp-file init-file :interactive t))
      (setf *browser* (make-instance *browser-class*
                                     :startup-timestamp startup-timestamp))
      (when (single-instance-p *browser*)
  
negative.code:         (when (equal "" file)
            (error "Can't load empty file name."))
          (cond
            ((and (not (streamp file)) (string= (pathname-name file) "-"))
             (progn
               (format t "Loading Lisp from standard input...")
               (loop for object = (read *standard-input* nil :eof)
  