anchor.diff:  init_per_suite(Config) when is_list(Config) ->
       delete_saved(Config),
       DataDir = ?config(data_dir,Config),
  -    Rels = [R || R <- [r15b,r16b], ?t:is_release_available(R)] ++ [current],
  +    Rels = [R || R <- [r16b,'17'], ?t:is_release_available(R)] ++ [current],
       io:format("Creating crash dumps for the following releases: ~p", [Rels]),
       AllDumps = create_dumps(DataDir,Rels),
       [{dumps,AllDumps}|Config].
  
positive.code:     CD.
  
  dump(Node,DataDir,Rel,DumpName) ->
      case Rel of
  	_ when Rel<r15b, Rel=/=current ->
  	    rpc:call(Node,os,putenv,["ERL_CRASH_DUMP_SECONDS","600"]);
  	_ ->
  	    ok
      end,
      rpc:call(Node,erlang,halt,[DumpName]),
      Crashdump0 = filename:join(filename:dirname(code:which(?t)),
  			       "erl_crash_dump.n1"),
  
negative.code: 
  rel_opt(Rel) ->
      case Rel of
  	r16b -> [{erl,[{release,"r16b_latest"}]}];
  	'17' -> [{erl,[{release,"17_latest"}]}];
  	current -> []
      end.
  
  dump_prefix(Rel) ->
      case Rel of
  	r16b -> "r16b_dump.";
  	'17' -> "r17_dump.";
  	current -> "r18_dump."
      end.
  
  compat_rel(Rel) ->
      case Rel of
  	r16b -> "+R16 ";
  	'17' -> "+R17 ";
  	current -> ""
      end.
  