anchor.diff:  
       InitialDict = orddict:from_list([{LPN, [error_unwritten]} ||
                                           {lpn, LPN, _} <- FinalStatus]),
  -    {_ValuesR, _} =
  +    {ValuesR, _} =
           lists:mapfoldl(
             fun({TS1, TS2, StEnds}, Dict1) ->
                     Dict2 = lists:foldl(
  
positive.code:                        [{lpn, LPN, Pg}]         % Compare here
                 end,
                 Events),
      %%QQQ = -5,
      %%if length(Trace) < QQQ -> io:format("Trace ~p\n", [Trace]), io:format("Events ~p\n", [Events]), io:format("Mods ~p\n", [Mods]); true -> ok end,
  
  
negative.code: %% If the appended LPN > 3, just lie and say that it was 3.
  
  append(#run{seq=Seq, proj=Proj}, Page) ->
      MaxLPN = 3,
      ?LOG({append, Page},
           begin
               case corfurl:append_page(Seq, Proj, Page) of
                   {ok, LPN} when LPN > MaxLPN ->
                       Bad = {ok, MaxLPN},
                       io:format("BAD: append: ~p -> ~p\n", [Page, Bad]),
                       Bad;
                   Else ->
                       Else
               end
           end).
  -endif. % TEST_TRIP_no_append_duplicates
  
  -ifndef(TEST_TRIP_bad_read).
  
  read_approx(#run{seq=Seq, proj=Proj}, SeedInt) ->
      Max = corfurl_sequencer:get(Seq, 0),
  