anchor.diff:          true -> timer:sleep(500), wait_progress(Node, TorrentID, Percent)
       end.
   
  +hex_to_bin_hash(HexIH) ->
  +    IntIH = list_to_integer(HexIH, 16),
  +    <<IntIH:160>>.
  +
  +%% Convert a literal infohash to integer.
  +hex_to_int_hash(X) ->
  +    list_to_integer(X, 16).
  +
  +
  
positive.code: %% Tests
  %% ----------------------------------------------------------------------
  groups() ->
  %   Tests = [seed_transmission, seed_leech, leech_transmission, bep9,
  %            partial_downloading, slow_seed_leech],
      Tests = [slow_seed_leech],
      [{main_group, [shuffle], Tests}].
  
  all() ->
  
negative.code: 
      SlowSeedNode = ?config(slow_seed_node, Config),
      LeechNode = ?config(leech_node, Config),
      BinIH = ?config(info_hash_bin, Config),
      SSTorrentID = wait_torrent_registration(SlowSeedNode, BinIH),
      io:format(user, "TorrentID on the slow_seed node is ~p.~n", [SSTorrentID]),
  
      ok = rpc:call(LeechNode,
  		  etorrent, start,
  		  [?config(seed_torrent, Config), {Ref, Pid}]),
  
      LTorrentID = wait_torrent_registration(LeechNode, BinIH),
      io:format(user, "TorrentID on the leech node is ~p.~n", [LTorrentID]),
  
      wait_torrent(LeechNode, LTorrentID),
      wait_progress(LeechNode, LTorrentID, 50),
      io:format(user, "50% were downloaded.~n", []),
  
      PeerPids = [_,_] = 
      rpc:call(SlowSeedNode, etorrent_peer_control, lookup_peers,
  