anchor.diff:  
   (defun start-with-port ()
     (run-program *port*)
  -  (start :execute-port t))
  +  (start)
  +  (run-loop *port*))
   
   (defun initialize-port ()
     (let ((port-running nil))
  
positive.code:   ;; initialize default state
    (setf *minibuffer* (make-instance 'minibuffer))
    (initialize-port)
    (when execute-port
      (run-loop *port*))
    t)
  
  (setf *port* (make-instance 'port))
  
negative.code:           (print "Host not found")
            (sleep *platform-port-poll-interval*))))))
  
  (defun start ()
    (map nil 'funcall *deferred-variables*)
    (map nil 'funcall *deferred-mode-initializations*)
    (ensure-directories-exist (xdg-data-home))
    (initialize-bookmark-db)
    (initialize-history-db)
    (setf *default-new-buffer-mode* #'document-mode)
  