anchor.diff:      true ->
         case compile:file(File, [binary]) of
           error ->
  -          After17 =
  -            case erlang:system_info(otp_release) of
  -              "R" ++ _ -> false; %% ... 16 or earlier
  -              [D,U|_] -> list_to_integer([D,U]) > 17
  -            end,
  -          case After17 of
  -            false -> print_test(File, 'n/a', skip);
  -            true ->
  -              print_test(File, 'compile', error),
  -              compile:file(File, [binary, report_errors]),
  -              halt(1)
  -          end,
  -          ok;
  +          print_test(File, 'compile', error),
  +          compile:file(File, [binary, report_errors]),
  +          halt(1);
           {ok, Module, Binary} ->
             {module, Module} = code:load_binary(Module, File, Binary),
             Exports = Module:module_info(exports),
  
positive.code: %%%-----------------------------------------------------------------------------
  
  print_header() ->
    to_stderr("~-61s~-12s~-7s",["File", "Test", "Result"]),
    print_line().
  
  
negative.code:    , failed = 0
     , files  = 0
     , finish = false
     , limit  = parallelism()
     , tests  = 0
     }).
  
  initialize() ->
    After17 =
      case erlang:system_info(otp_release) of
        "R" ++ _ -> false; %% ... 16 or earlier
        [D,U|_] -> list_to_integer([D,U]) > 17
      end,
    case After17 of
      false ->
        to_stderr("Skipping because OTP version < 18", []),
        halt(0);
      true ->
        print_header(),
        spawn_link(fun() -> loop(#state{}) end)
    end.
  
  loop(#state{done = All, finish = {true, Report}, tests = All} = State) ->
    #state{failed = Failed, files = Files, tests = Tests} = State,
  