anchor.diff:  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
   	 terminate/2, code_change/3]).
   
  --record(state, { ip = none,
  -		 port = none,
  -		 peer_id = none,
  +-record(state, { peer_id = none,
   		 info_hash = none,
   
   		 tcp_socket = none,
  
positive.code: %%                                      {stop, Reason, State}
  %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  handle_cast({connect, MyPeerId}, S) ->
      Socket = int_connect(S#state.ip, S#state.port),
      case peer_communication:initiate_handshake(Socket,
  					       S#state.peer_id,
  					       MyPeerId,
  					       S#state.info_hash) of
  	{ok, _ReservedBytes} ->
  	    enable_socket_messages(Socket),
  
negative.code: %%                         {stop, Reason}
  %% Description: Initiates the server
  %%--------------------------------------------------------------------
  init([PeerId, InfoHash, StatePid, FilesystemPid, MasterPid]) ->
      {ok, #state{ peer_id = PeerId,
  		 piece_set = sets:new(),
  		 request_queue = queue:new(),
  		 remote_request_set = sets:new(),
  