anchor.diff:  
   to_bus_id(Server) when is_list(Server) ->
       {Transport, [?TRANSPORT_DELIM | Params]} =
  -	lists:splitwith(fun(A) -> A =/= ?TRANSPORT_DELIM end, Server),
  +		lists:splitwith(fun(A) -> A =/= ?TRANSPORT_DELIM end, Server),
       #bus_id{scheme=list_to_existing_atom(Transport),
  -	    options=parse_params(Params)}.
  +			options=parse_params(Params)}.
   
   parse_params(Params) when is_list(Params) ->
       parse_params(string:tokens(Params, [?PARAM_DELIM]), []).
  
positive.code: 
  parse_param(Param) when is_list(Param) ->
      {Key, [?KEY_DELIM | Value]} =
  	lists:splitwith(fun(A) -> A =/= ?KEY_DELIM end, Param),
      Key_name =
          case catch list_to_existing_atom(Key) of
              {'EXIT', {badarg, _Reason}} ->
  
negative.code: -include("dbus_introspectable.hrl").
  
  -export([get_bus_id/1,
  		 connect/1]).
  
  %% dbus_connection callbacks
  -export([close/1,
  		 call/2,
  		 cast/2]).
  
  -define(DEFAULT_BUS_SYSTEM, #bus_id{scheme=unix,options=[{path, "/var/run/dbus/system_bus_socket"}]}).
  -define(SESSION_ENV, "DBUS_SESSION_BUS_ADDRESS").
  