anchor.diff:  
   send_from_queue({Type, From, Data}, Queue, StateName,
           State=#state{port=Port}) ->
  -    case send_data(Port, Data) of
  +    case send_data(Port, Data, true) of
           {ok, Timer} ->
               Info = {Type, From, Timer},
               {next_state, StateName, State#state{in_process=Info, queue=Queue}};
  
positive.code:     {ok, StateName, State}.
  
  %%%
  %%% Utility functions
  %%%
  
  send_data(Port, Data) ->
      send_data(Port, Data, true).
  
  send_data(Port, Data, WithTimer) ->
      try port_command(Port, Data) of
          true ->
              case WithTimer of
                  true ->
                      Timer = gen_fsm:send_event_after(?CALL_TIMEOUT, timeout),
                      {ok, Timer};
                  false ->
                      ok
              end
      catch
          error:badarg ->
              fail
  
negative.code:     Data = encode({'S', Module, Function, Args}),
      send_request({switch, From, Data}, server, State);
  client(Event, From, State) ->
      {reply, {unknown_event, ?MODULE, Event, From}, client, State}.
  
  %%
  %% @doc Asynchronous event handler in client mode
  