anchor.diff:  %%--------------------------------------------------------------------
   handle_cast(stop, S) ->
       {stop, normal, S};
  +
   handle_cast({connect, IP, Port}, S) ->
       case gen_tcp:connect(IP, Port, [binary, {active, false}],
   			 ?DEFAULT_CONNECT_TIMEOUT) of
  
positive.code: %%--------------------------------------------------------------------
  %% Function: connect(Pid, IP, Port)
  %% Description: Connect to the IP and Portnumber for communication with
  %%   the peer.
  %%--------------------------------------------------------------------
  connect(Pid, IP, Port) ->
      gen_server:cast(Pid, {connect, IP, Port}).
  
negative.code: %%--------------------------------------------------------------------
  complete_handshake(Pid, ReservedBytes, Socket, PeerId) ->
      gen_server:cast(Pid, {complete_handshake, ReservedBytes, Socket, PeerId}).
  
  %%--------------------------------------------------------------------
  %% Function: stop(Pid)
  