anchor.diff:                      [ 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)
  +            %% print all replicas (more or less than 4?)
  +            log:log("~n~10000.0p", [MyEntries])
       end,
   
       erlang:put(entries, MyEntries),
  
positive.code: 
      MyEntries = [ begin
                        Entry = lists:keyfind(X, 1, FlatRingData),
                        setelement(1, Entry, named_replicas(element(1, Entry)))
                    end || X <- Replicas ],
  
      %% 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] ->
  
negative.code:     ok.
  
  
  