anchor.diff:  		     end),
       {Ref, Pid}.
   
  -stop_transmission(Pid) when is_pid(Pid) ->
  +stop_transmission(Config, Pid) when is_pid(Pid) ->
       Pid ! close,
  +    end_transmission_locations(Config),
       ok.
  +
  +end_transmission_locations(Config) ->
  +    PrivDir = ?config(priv_dir, Config),
  +
  +    %% Transmission dir needs some help:
  +    ok = file:delete(filename:join([PrivDir, ?TR_WORK_DIR, "resume",
  +				    "test_file_30M.random.ce953adee1a11f83.resume"])),
  +    ok = file:del_dir(filename:join([PrivDir, ?TR_WORK_DIR, "resume"])),
  +
  +    ok = file:delete(filename:join([PrivDir, ?TR_WORK_DIR, "torrents",
  +				    "test_file_30M.random.ce953adee1a11f83.torrent"])),
  +    ok = file:del_dir(filename:join([PrivDir, ?TR_WORK_DIR, "torrents"])),
  +
  +    ok = file:del_dir(filename:join([PrivDir, ?TR_WORK_DIR, "blocklists"])).
  +
  +stop_leecher(Config) ->
  +    ok = rpc:call(?config(leech_node, Config), etorrent, stop_app, []),
  +    ok = file:delete(filename:join([?config(priv_dir, Config),
  +				    "leech_etorrent.log"])),
  +    ok = file:delete(?config(leech_fast_resume, Config)).
  +
  +stop_seeder(Config) ->
  +    ok = rpc:call(?config(seed_node, Config), etorrent, stop_app, []),
  +    ok = file:delete(filename:join([?config(priv_dir, Config),
  +				    "seed_etorrent.log"])),
  +    ok = file:delete(?config(seed_fast_resume, Config)).
   
   transmission_complete_criterion() ->
       "Seeding, uploading to".
  
positive.code:     spawn_seeder(Config),
      [{transmission_port, {Ref, Pid}} | Config];
  init_per_testcase(seed_leech, Config) ->
      SN = ?config(seed_node, Config),
      LN = ?config(leech_node, Config),
      Data = ?config(data_dir, Config),
      Priv = ?config(priv_dir, Config),
      CommonConf = ct:get_config(common_conf),
      SeedConfig = seed_configuration(CommonConf, Priv, Data),
      LeechConfig = leech_configuration(CommonConf, Priv),
      SeedTorrent = filename:join([Data, ?TESTFILE30M ++ ".torrent"]),
      LeechTorrent = filename:join([Priv, ?TESTFILE30M ++ ".torrent"]),
      SeedFile = filename:join([Data, ?TESTFILE30M]),
      LeechFile = filename:join([Priv, "nothing", ?TESTFILE30M]),
      file:make_dir(filename:join([Priv, "nothing"])),
      file:copy(SeedTorrent, LeechTorrent),
      ok = rpc:call(SN, etorrent, start_app, [SeedConfig]),
      ok = rpc:call(LN, etorrent, start_app, [LeechConfig]),
      [{seed_torrent, SeedTorrent},
       {leech_torrent, LeechTorrent},
       {seed_file, SeedFile},
       {leech_file, LeechFile} | Config];
  init_per_testcase(_Case, Config) ->
      Config.
  
  stop_leecher(Config) ->
      ok = rpc:call(?config(leech_node, Config), etorrent, stop_app, []).
  
  stop_seeder(Config) ->
      ok = rpc:call(?config(seed_node, Config), etorrent, stop_app, []).
  
  end_per_testcase(leech_transmission, Config) ->
      stop_leecher(Config),
  
negative.code:     {Ref, Pid} = {make_ref(), self()},
      ok = rpc:call(?config(leech_node, Config),
  		  etorrent, start,
  		  [?config(seed_torrent, Config), {Ref, Pid}]),
      receive
  	{Ref, done} -> ok
      after
  