anchor.diff:  
   get_server_load([], Acc) -> Acc;
   get_server_load([H|Rest], Acc) ->
  -  Stat = rpc:call(node(H), erlang, statistics, [run_queue]),
  +  % os_mon lookups can go here
  +  Stat = rpc:call(node(H), ?MODULE, current_load_of_node, []),
     get_server_load(Rest, [{H, Stat}|Acc]).
   
   read_babysitter_config() ->
  
positive.code: notify(Msg) ->
    rpc:call(node(seed_pid()), event_manager, notify, [Msg]),    
    ok.
  
  %%====================================================================
  %% server-specific methods
  
negative.code:   dump/1,
    get_next_available/1,
    notify/1,
    read_babysitter_config/0,
    current_load_of_node/0
  ]).
  
  %% gen_server callbacks
  