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:   ;; 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-introspected-object (platform-port bus +platform-port-object-path+ +platform-port-name+)
        (apply #'platform-port +platform-port-interface+ method args))))
  
  
negative.code:   "Call METHOD over ARGS.
  SIGNATURE must be the D-Bus encoded type string of ARGS.
  For an array of string, that would be \"as\"."
    (dbus:with-open-bus (bus (session-server-addresses))
      (dbus:invoke-method (dbus:bus-connection bus) method-name
                          :path +core-object-path+
                          :destination +core-name+
  