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:   "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 (dbus:session-server-addresses))
      (dbus:invoke-method (dbus:bus-connection bus) method-name
                          :path +core-object-path+
                          :destination +core-name+
  
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*
  