anchor.diff:  	    format("f() -> ~w.~n", [T])
   	])} || T <- Ts],
   
  -    setup_code_changer(Codes),
  -    ok.
  +    Pids = setup_code_changer(Codes),
  +    {save_config, [{purge_pids,Pids}]}.
   
   setup_code_changer([{Token,Code}|Cs] = Codes) ->
       {module, ?model} = erlang:load_module(?model,Code),
       Pids = setup_checkers(Token,?number_of_processes),
       code_changer(Cs, Codes, ?interval,Pids,?passes),
  -    ok.
  +    Pids.
   
   code_changer(_, _, _, Pids, 0) ->
  -    [exit(Pid, normal) || Pid <- Pids],
  +    [unlink(Pid) || Pid <- Pids],
  +    [exit(Pid, die) || Pid <- Pids],
       io:format("done~n"),
       ok;
   code_changer([], Codes, T, Pids, Ps) ->
  
positive.code: %% Copyright (C) 2012 Björn-Egil Dahlberg
  %%
  %% File:    code_parallel_load_SUITE.erl
  %% Author:  Björn-Egil Dahlberg
  %% Created: 2012-01-19
  -module(code_parallel_load_SUITE).
  -export([
  	all/0,
  
negative.code:     Loads = [receive {Pid, change, Res} -> Res end || Pid <- Pids],
      [receive {Pid, completed, Token2} -> ok end || Pid <- Pids],
  
      ok = ensure_only_one_load(Loads, 0),
      {save_config, [{purge_pids,Pids}]}.
  
  ensure_only_one_load([], 1) -> ok;
  ensure_only_one_load([], _) -> too_many_loads;
  