anchor.diff:              {reply, OK, S};
           {error, Retry}
             when Retry == partition; Retry == bad_epoch; Retry == wedged ->
  -            do_list_files(Depth, STime, S);
  +            do_list_files(Depth, STime, TO, S);
           {error, _}=Error ->
               {reply, Error, S}
       end.
  
positive.code:             case S2#state.proj of
                  P2 when P2 == undefined orelse
                          P2#projection_v1.upi == [] ->
                      do_checksum_list(File, Depth + 1, STime, S2);
                  _ ->
                      do_checksum_list2(File, Depth + 1, STime, S2)
              end
      end.
  
  do_checksum_list2(File, Depth, STime,
                    #state{epoch_id=EpochID, proj=P, proxies_dict=PD}=S) ->
      Proxy = orddict:fetch(lists:last(readonly_flus(P)), PD),
      case ?FLU_PC:checksum_list(Proxy, EpochID, File, ?TIMEOUT) of
  
negative.code:             case S2#state.proj of
                  P2 when P2 == undefined orelse
                          P2#projection_v1.upi == [] ->
                      do_write_head(File, Offset, Chunk, Depth + 1,
                                    STime, TO, S2);
                  _ ->
                      do_write_head2(File, Offset, Chunk, Depth + 1,
                                     STime, TO, S2)
              end
      end.
  
  do_write_head2(File, Offset, Chunk, Depth, STime, TO,
                 #state{epoch_id=EpochID, proj=P, proxies_dict=PD}=S) ->
      [HeadFLU|RestFLUs] = mutation_flus(P),
      Proxy = orddict:fetch(HeadFLU, PD),
  