anchor.diff:                                      pid = Pid,
                                       peer_state = PeerState,
                                       state = State,
  -                                    rate = R, % TODO: Rate is negative if leeching! Investigate!
  +                                    rate = R,
                                       r_interest_state = proplists:get_value(interest_state, St),
                                       r_choke_state    = proplists:get_value(choke_state, St),
                                       l_choke          = proplists:get_value(local_choke, St),
  
positive.code: 
  split_preferred(Peers) ->
      {Downs, Leechs} = split_preferred_peers(Peers, [], []),
      {lists:keysort(#rechoke_info.rate, Downs),
       lists:keysort(#rechoke_info.rate, Leechs)}.
  
  
negative.code:         true ->
              case etorrent_rate_mgr:fetch_send_rate(Id, Pid) of
                  none -> none;
                  Rate -> {seeding, -Rate} % Negative rate so keysort works
              end;
          false ->
              case etorrent_rate_mgr:fetch_recv_rate(Id, Pid) of
                  none -> none;
                  Rate -> {leeching, -Rate} % Negative rate so keysort works
              end
      end.
  
  