anchor.diff:  %% called if a timeout occurs.
   %%--------------------------------------------------------------------
   waiting_check(token, S) ->
  +    {ok, Torrent} = check_torrent(S#state.path),
       ok = serializer:release_token(),
  -    {next_state, started, S};
  +    {next_state, started, S#state{torrent = Torrent}};
   waiting_check(stop, S) ->
       {next_state, stopped, S}.
   
  
positive.code: 		       peer_id = PeerId},
      case serializer:request_token() of
  	ok ->
  	    ok = serializer:release_token(),
  	    {reply, ok, started, NewState};
  	wait ->
  	    {reply, ok, waiting_check, NewState}
      end.
  
negative.code: %%--------------------------------------------------------------------
  %%% Internal functions
  %%--------------------------------------------------------------------
  check_torrent(_Path) ->
      {ok, none}.
  
  %% start(TorrentPid) ->
  %%     gen_server:cast(TorrentPid, start).
  
  