anchor.diff:                          true        -> S
                        end};
   handle_call({test_read_latest_public_projection, ReadRepairP}, _From, S) ->
  -    {Res, ExtraInfo, S2} = do_cl_read_latest_public_projection(ReadRepairP, S),
  -    {reply, {Res, ExtraInfo}, S2};
  +    {Perhaps, Val, ExtraInfo, S2} =
  +        do_cl_read_latest_public_projection(ReadRepairP, S),
  +    Res = {Perhaps, Val, ExtraInfo},
  +    {reply, Res, S2};
   handle_call(_Call, _From, S) ->
       {reply, whaaaaaaaaaa, S}.
   
  
positive.code:                                     #ch_mgr{proj=Proj1, myflu=MyFLU} = S) ->
      Epoch1 = Proj1#projection.epoch_number,
      case cl_read_latest_public_projection(S) of
          {unanimous, Proj2, Extra, S3} when Proj2 == Proj1 ->
              {Proj2, Extra, S3};
          {unanimous, #projection{epoch_number=Epoch2}=Proj2, Extra, _S3}
            when Epoch2 < Epoch1 orelse
                 (Epoch2 == Epoch1 andalso Proj2 /= Proj1) ->
              exit({invariant_error, mine, Proj1, cl_unanimous, Proj2, extra, Extra});
          {unanimous, #projection{epoch_number=Epoch2}=Proj2, Extra, S3}
            when Epoch2 > Epoch1 ->
              Proj2b = update_projection_dbg2(
                         Proj2, [{hooray, {date(), time()}}|Extra]),
              ok = machi_flu0:proj_write(MyFLU, Epoch2, private, Proj2b),
              {Proj2, Extra, S3#ch_mgr{proj=Proj2b}};
          {needs_work, FLUsRs, Extra, S3} ->
              if not ReadRepairP ->
                      {not_unanimous, [{results, FLUsRs}|Extra], S3};
                 true ->
                      {_Status, S4} = do_read_repair(FLUsRs, Extra, S3),
                      {not_unanimous, Extra, S4}
              end
      end.
  
  cl_read_latest_public_projection(#ch_mgr{proj=Proj}=S) ->
      #projection{all_members=All_list} = Proj,
      {_UpNodes, Partitions, S2} = calc_up_nodes(S),
      DoIt = fun(X) ->
                     case machi_flu0:proj_read_latest(X, public) of
  
negative.code:     Rs = [perhaps_call_t(S, Partitions, FLU, fun() -> DoIt(FLU) end) ||
               FLU <- All_list],
      FLUsRs = lists:zip(All_list, Rs),
      UnwrittenP = ([x || error_unwritten <- Rs] == []),
      Ps = [Proj || {_FLU, Proj} <- FLUsRs, is_record(Proj, projection)],
      if UnwrittenP ->
              {needs_repair, FLUsRs, [flarfus], S2};
         true ->
              [{_Rank, BestProj}|Rest] = rank_and_sort_projections(
                                                                Ps, CurrentProj),
              UnanimousTag = if Rest == [] -> unanimous;
                                true       -> not_unanimous
                             end,
              Extra = [{all_members_replied, length(Rs) == length(All_list)}],
              Best_FLUs = [FLU || {FLU, Projx} <- FLUsRs, Projx == BestProj],
              {UnanimousTag, BestProj, [{best_flus,Best_FLUs}|Extra], S2}
      end.
  
  %% 1. Do the results contain a projection?
  