anchor.diff:  %%% Internal functions
   %%--------------------------------------------------------------------
   sort_servers_by_load(Servers) ->
  -  lists:sort(fun({_Node1, Load1},{_Node2, Load2}) -> Load1 < Load2 end, get_server_load(Servers, [])).
  +  lists:sort(fun({_Node1, Load1},{_Node2, Load2}) ->
  +                 Load1 < Load2
  +             end, get_server_load(Servers, [])).
   
   get_server_load([], Acc) -> Acc;
   get_server_load([H|Rest], Acc) ->
  
positive.code: -behaviour(gen_cluster).
  -define (DEBUG, false).
  -define (TRACE(X, M), case ?DEBUG of
    true -> io:format(user, "TRACE ~p:~p ~p ~p~n", [?MODULE, ?LINE, X, M]);
    false -> ok
  end).
  -define (ERROR_MSG (Msg1), {"ERROR", {"Beehive could not start", Msg1}}).
  
  
  
negative.code:   case get_servers(Type) of
      [] ->
        % Should we be starting an instance automagically?
        AtomType =
          erlang:list_to_atom(lists:flatten(["beehive_",
                                             erlang:atom_to_list(Type)])),
        ok = application:start(AtomType),
        timer:sleep(500),
        get_next_available(Type, Count - 1);
  