anchor.diff:    ;; If the platform port ever hangs, the next %rpc-send will hang the Lisp core too.
     ;; Always ensure we send the auth token as the first argument
     ;; TODO: Catch connection errors and execution errors.
  -  (dbus:with-open-bus (bus (dbus:session-server-addresses))
  +  (dbus:with-open-bus (bus (session-server-addresses))
       (dbus:with-introspected-object (platform-port bus +platform-port-object-path+ +platform-port-name+)
         (apply #'platform-port +platform-port-interface+ method args))))
   
  
positive.code:     (bt:acquire-lock lock)
      (bt:condition-wait condition lock)))
  
  (defun server-addresses ()
    (let ((server-addresses (dbus:session-server-addresses)))
      (if server-addresses
          server-addresses
  
negative.code:     (setf (active-connection interface)
            (bt:make-thread
             (lambda ()
               (dbus:with-open-bus (bus (session-server-addresses))
                 (let ((status (dbus:request-name bus +core-name+ :do-not-queue)))
                   (when (eq status :exists)
                     (let ((url-list (or *free-args*
  