anchor.diff:  
       MyEntries = [ begin
                         Entry = lists:keyfind(X, 1, FlatRingData),
  -                      setelement(1, Entry, named_replicas(element(1, Entry)))
  -                  end || X <- Replicas ],
  +                      setelement(1, Entry, ShortName)
  +                  end || {X, ShortName} <- lists:zip(Replicas, [r0, r1, r2, r3]) ],
   
       %% print all replicas in a structured way
  -%    log:log("~10000.0p~n      ~10000.0p~n      ~10000.0p~n      ~10000.0p", MyEntries),
       case erlang:get(entries) of
           MyEntries -> ok;
           [A,B,C,D] ->
  
positive.code:                     [ element(2, Y) || Y <- lists:zip(X, MyEntries),
                                         element(1, Y) =:= false]);
          _ ->
              %% print all replicas in a structured way
              log:log("~n~10000.0p"
                      "~n~10000.0p"
                      "~n~10000.0p"
                      "~n~10000.0p",
                      MyEntries)
      end,
  
      erlang:put(entries, MyEntries),
  
negative.code:     ok.
  
  
  