anchor.diff:          Proj_mCSum = Proj_m#projection_v1.epoch_csum,
           [{ok, {false, {Epoch_m, Proj_mCSum}}} = WedgeStatus(P) || % *not* wedged
                P <- Ps], 
  -        [{ok,_} = Append(P) || P <- Ps],                % *not* wedged
  +        {ok, {false, EpochID2}} = WedgeStatus(hd(Ps)),
  +        [{ok,_} = Append(P, EpochID2) || P <- Ps],            % *not* wedged
   
           %% Stop all but 'a'.
           [ok = machi_flu_psup:stop_flu_package(Name) || {Name,_} <- tl(Ps)],
  
positive.code:         {now_using,_,Epoch_n} = machi_chain_manager1:test_react_to_env(
                                    hd(ChMgrs)),
          true = (Epoch_n > Epoch_m),
          %% Confirm that 'a' is *not* wedged
          {ok, _} = Append(hd(Ps)),
  
          ok
      after
  
negative.code:         true = (machi_projection:update_dbg2(Proj_m, []) ==
                      machi_projection:update_dbg2(Proj_m, [])),
          %% Confirm that 'a' is wedged
          {error, wedged} = Append(hd(Ps), EpochID2),
          {_, #p_srvr{address=Addr_a, port=TcpPort_a}} = hd(Ps),
          {error, wedged} = machi_flu1_client:read_chunk(
                              Addr_a, TcpPort_a, ?DUMMY_PV1_EPOCH,
  