anchor.diff:      if CMode == ap_mode ->
               calc_projection2(P_current, RelativeToServer, AllHosed, Dbg, S);
          CMode == cp_mode ->
  -            #projection_v1{epoch_number=OldEpochNum,
  -                           all_members=AllMembers,
  -                           upi=OldUPI_list
  -                          } = P_current,
  -            UPI_length_ok_p =
  -                length(OldUPI_list) >= full_majority_size(AllMembers),
  -            case {OldEpochNum, UPI_length_ok_p} of
  -                {0, _} ->
  -                    calc_projection2(P_current, RelativeToServer, AllHosed,
  -                                     Dbg, S);
  -                {_, true} ->
  -                    calc_projection2(P_current, RelativeToServer, AllHosed,
  -                                     Dbg, S);
  -                {_, false} ->
  -                    {Up, _Partitions, RunEnv2} = calc_up_nodes(
  -                                                  MyName, AllMembers, RunEnv),
  -                    %% We can't improve on the current projection.
  -                    {P_current, S#ch_mgr{runenv=RunEnv2}, Up}
  -            end
  +            calc_projection2(P_current, RelativeToServer, AllHosed, Dbg, S)
  +            %% TODO EXPERIMENT 2015-09-21 DELETE-ME???
  +            %% #projection_v1{epoch_number=OldEpochNum,
  +            %%                all_members=AllMembers,
  +            %%                upi=OldUPI_list,
  +            %%                upi=OldRepairing_list
  +            %%               } = P_current,
  +            %% OldUPI_and_Repairing = OldUPI_list ++ OldRepairing_list,
  +            %% UPI_and_Repairing_length_ok_p =
  +            %%     length(OldUPI_and_Repairing) >= full_majority_size(AllMembers),
  +            %% case {OldEpochNum, UPI_length_ok_p} of
  +            %%     {0, _} ->
  +            %%         calc_projection2(P_current, RelativeToServer, AllHosed,
  +            %%                          Dbg, S);
  +            %%     {_, true} ->
  +            %%         calc_projection2(P_current, RelativeToServer, AllHosed,
  +            %%                          Dbg, S);
  +            %%     {_, false} ->
  +            %%         {Up, _Partitions, RunEnv2} = calc_up_nodes(
  +            %%                                       MyName, AllMembers, RunEnv),
  +            %%         %% We can't improve on the current projection.
  +            %%         {P_current, S#ch_mgr{runenv=RunEnv2}, Up}
  +            %% end
       end.
   
   %% AllHosed: FLUs that we must treat as if they are down, e.g., we are
  
positive.code:                                        (catch put(yyy_hack, [{FLU, Epoch, ok2}|get(yyy_hack)])),
                                         Proj
                                 end,
                            if length(Px#projection_v1.upi) >= MajoritySize ->
                                    (catch put(yyy_hack, [{FLU, Epoch, yay}|get(yyy_hack)])),
                                    Px;
                               true ->
  
negative.code:     %% CP mode extra sanity checks
      if CMode1 == cp_mode ->
              Majority = full_majority_size(All_list2),
              UPI2_and_Repairing2 = UPI_list2 ++ Repairing_list2,
              if length(UPI_list2) == 0 ->
                      ok;                         % none projection
                 length(UPI2_and_Repairing2) >= Majority ->
                      %% We are assuming here that the client side is smart
                      %% enough to do the *safe* thing when the
                      %% length(UPI_list2) < Majority ... the client must use
                      %% the repairing nodes both as witnesses to check the
                      %% current epoch.
                      ok;
                 true ->
                      error({majority_not_met, UPI_list2})
              end;
  