anchor.diff:  -spec call(FsmRef :: fsm_ref(), MethodName :: atom(), Args :: [any()]) ->
   		  {ok, Result :: any()} | {error, any()}.
   call(FsmRef, Name, Args) when is_list(Args) ->
  -    gen_fsm:sync_send_event(FsmRef, #call{name = Name, args = Args}).
  +    gen_fsm:sync_send_event(FsmRef, #call{name = Name, args = Args}, infinity).
  +
  +
  +-spec call(FsmRef :: fsm_ref(), MethodName :: atom(), Args :: [any()],
  +	   Timeout :: non_neg_integer() | infinity) ->
  +		  {ok, Result :: any()} | {error, any()}.
  +call(FsmRef, Name, Args, Timeout) when is_list(Args) ->
  +    gen_fsm:sync_send_event(FsmRef, #call{name = Name, args = Args}, Timeout).
   
   %%%===================================================================
   %%% gen_fsm callbacks
  
positive.code: 	 main/2,
  	 main/3]).
  
  -export([call/3]).
  
  -define(SERVER, ?MODULE).
  
  
negative.code: 				{packet, 0},
  				{active, true},
  				{nodelay, true},
  				{reuseaddr, true}], 3000),
  		{cont, Cont} = eavro_rpc_proto:decode_frame_sequences(<<>>),
  		{next_state, handshake_start, 
  		 State#state{ socket = Sock, 
  