anchor.diff:  
   
   handle_info({setup, Host, Port}, State) ->
  -%%     BusSpec = {{bus, Host, Port}, {dberl.bus,connect,[Host,Port]}, permanent, 10000, worker, [dberl.bus]},
  -    
  -%%     {ok, Bus} = supervisor:start_child(dberl.sup, BusSpec),
       {ok, Bus} = bus_reg:get_bus(Host, Port),
       true = link(Bus),
       ok = bus:wait_ready(Bus),
       io:format("Ready~n"),
   
  -%%     {ok, Service} = dberl.service_reg:export_service('org.za.hem.DBus'),
  -%%     {ok, Local_object} = hello:start_link(Service, '/Root'),
  -
       {ok, BusObj} = bus:get_object(Bus, 'org.freedesktop.DBus', '/'),
       true = link(BusObj),
       io:format("BusObj: ~p~n", [BusObj]),
  -
  -%%     BusObj = undefined,
   
       {noreply, State#state{bus=Bus,
   			  bus_obj=BusObj
  
positive.code: 	  bus_obj
  	 }).
  
  -export([make/0, test/0, get_object/3, call/2, call/3, wait_ready/1]).
  
  stop() ->
      gen_server:cast(todo, stop).
  
  get_object(Bus, Service, Path) ->
      bus:get_object(Bus, Service, Path).
  
  call(Bus, Header) ->
      bus:call(Bus, Header).
  
  call(Bus, Header, From) ->
      bus:call(Bus, Header, From).
  
  wait_ready(Bus) ->
      bus:wait_ready(Bus).
  
  make() ->
      Modules = [
  
negative.code: 
  %% api
  -export([
  	 start_link/0
  	]).
  
  -define(SERVER, ?MODULE).
  -define(HOST, "localhost").
  