anchor.diff:      NotSanesDict = orddict:update_counter(Author_latest, 1, NotSanesDict0),
       S2 = S#ch_mgr{not_sanes=NotSanesDict, sane_transitions=0},
       case orddict:fetch(Author_latest, NotSanesDict) of
  -        N when CMode == cp_mode ->
  -           ?V("YOYO-cp-mode,~w,~w,~w,",[MyName, P_latest#projection_v1.epoch_number,N]),
  -            ?REACT({c100, ?LINE, [{cmode,CMode},
  -                                  {not_sanes_author_count, N}]}),
  -            case get({zzz_quiet, P_latest#projection_v1.epoch_number}) of undefined -> ?V("YOYO-cp-mode,~w,current=~w,",[MyName, machi_projection:make_summary((S#ch_mgr.proj))]); _ -> ok end,
  -            put({zzz_quiet, P_latest#projection_v1.epoch_number}, true),
  -            react_to_env_A49(P_latest, [], S2);
  -        N when CMode == ap_mode,
  +        %% N when CMode == cp_mode ->
  +        %%    ?V("YOYO-cp-mode,~w,~w,~w,",[MyName, P_latest#projection_v1.epoch_number,N]),
  +        %%     ?REACT({c100, ?LINE, [{cmode,CMode},
  +        %%                           {not_sanes_author_count, N}]}),
  +        %%     case get({zzz_quiet, P_latest#projection_v1.epoch_number}) of undefined -> ?V("YOYO-cp-mode,~w,current=~w,",[MyName, machi_projection:make_summary((S#ch_mgr.proj))]); _ -> ok end,
  +        %%     put({zzz_quiet, P_latest#projection_v1.epoch_number}, true),
  +        %%     react_to_env_A49(P_latest, [], S2);
  +        N when %% EXPERIMENT! Delme? CMode == ap_mode,
                  N > ?TOO_FREQUENT_BREAKER ->
               ?V("\n\nYOYO ~w breaking the cycle of:\n  current: ~w\n  new    : ~w\n", [MyName, machi_projection:make_summary(S#ch_mgr.proj), machi_projection:make_summary(P_latest)]),
               ?REACT({c100, ?LINE, [{not_sanes_author_count, N}]}),
  
positive.code:             P2 = machi_projection:update_checksum(
                     P#projection_v1{epoch_number=OldEpochNum,
                                     mode=cp_mode, dbg2=[zerf_all]}),
              io:format(user, "\n=========================== CONFIRM dbg ~w zerf_all for oldepoch ~w\n", [MyName, OldEpochNum]),
              P2;
          _X:_Y ->
              throw({zerf, {damn_exception, Up, _X, _Y, erlang:get_stacktrace()}})
  
negative.code:     if Sane == true ->
              ok;
         true ->
              QQ_current = lists:flatten(io_lib:format("cur=~w:~w,~w/calc=~w:~w,~w", [P_current#projection_v1.epoch_number, P_current#projection_v1.upi, P_current#projection_v1.repairing, P_current_calc#projection_v1.epoch_number, P_current_calc#projection_v1.upi, P_current_calc#projection_v1.repairing])),
              QQ_latest = lists:flatten(io_lib:format("~w:~w,~w", [P_latest#projection_v1.epoch_number, P_latest#projection_v1.upi, P_latest#projection_v1.repairing])),
              ?V("\n~w-insane-~w-auth=~w ~s -> ~s ~w\n    ~p\n    ~p\n", [?LINE, MyName, P_newprop#projection_v1.author_server, QQ_current, QQ_latest, Sane, get(why2), get(react)])
      end,
      ?REACT({c100, ?LINE, [zoo, {me,MyName},
                            {author_latest,Author_latest},
                            {why2, get(why2)}]}),
  
      %% Note: The value of `Sane' may be `true', `false', or `term() /= true'.
      %%       The error value `false' is reserved for chain order violations.
  