anchor.diff:      (bt:acquire-lock lock)
       (bt:condition-wait condition lock)))
   
  -(defun server-addresses ()
  +(defun session-server-addresses ()
     (let ((server-addresses (dbus:session-server-addresses)))
       (if server-addresses
           server-addresses
  
positive.code:     (setf (active-connection interface)
            (bt:make-thread
             (lambda ()
               (dbus:with-open-bus (bus (server-addresses))
                 (let ((status (dbus:request-name bus +core-name+ :do-not-queue)))
                   (when (eq status :exists)
                     (let ((url-list (or *free-args*
  
negative.code:   ;; 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 (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))))
  
  