anchor.diff:  
   bucket_types(Node) ->
       load_patch(Node),
  -    List = remote(Node, re_riak_patch, bucket_types, []),
  +    List0 = remote(Node, re_riak_patch, bucket_types, []),
  +    List = lists:sort(fun([{name, N1}|_], [{name, N2}|_]) -> N1 < N2 end, List0),
       [{bucket_types, List}].
   
   create_bucket_type(Node, BucketType, RawValue) ->
  
positive.code:         RiakNode when is_atom(RiakNode) ->
              case remote(RiakNode, riak_core_ring_manager, get_my_ring, []) of
                  {ok, MyRing} ->
                      Nodes = remote(RiakNode, riak_core_ring, all_members, [MyRing]),
                      WithIds = lists:map(fun(N) -> node_info(N) end, Nodes),
                      [{nodes, WithIds}];
                  _ -> [{nodes, []}]
  
negative.code:     end.
  
  clusters() ->
      Clusters = lists:keysort(1, re_config:clusters()),
      Mapped = [cluster_info(Cluster) || Cluster <- Clusters],
      [{clusters, Mapped}].
  
  