anchor.diff:             end,
       Rs = [perhaps_call_t(S, Partitions, FLU, fun() -> DoIt(FLU) end) ||
                FLU <- All_list],
  +    %% todo fix the disparity between the return tuples below
       case lists:usort(Rs) of
           [P] when is_record(P, projection) ->
  -            {ok, S#ch_mgr.proj, S2}
  -    %% todo finish other cases here.
  +            {ok, P, S2};
  +        _ ->
  +            FLUsRs = lists:zip(All_list, Rs),
  +            rank_and_repair_instructions(FLUsRs, Proj)
       end.
   
   make_initial_projection(MyName, All_list, UPI_list, Repairing_list, Ps) ->
  
positive.code:         ok = machi_flu0:stop(FLUc)        
      end.
  
  -endif.
  
negative.code:     {Val, Seed2} = random:uniform_s(N, Seed1),
      {Val, replace(RunEnv, [{seed, Seed2}])}.
  
  rank_and_repair_instructions([_|_] = FLUsRs, Proj) ->
      #projection{all_members=All_list} = Proj,
      MemberRank = orddict:from_list(
                     lists:zip(All_list, lists:seq(1, length(All_list)))),
      N = length(All_list),
      rank_and_repair(FLUsRs, Proj, -1, undefined, [], MemberRank, N).
  
  rank_and_repair([], _Proj, TopRank, WinningProj, RepairInstr,
                  _MemberRank, _N) ->
      {TopRank, WinningProj, RepairInstr};
  rank_and_repair([Proj|T], OldProj, TopRank, WinningProj, RepairInstr,
                 MemberRank, N)
    when is_record(projection, Proj) ->
      AuthorRank = orddict:fetch(Proj#projection.author_server, MemberRank),
      left off here..........
  
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  make_network_partition_locations(Nodes, Seed1) ->
  