anchor.diff:      Next = MsgId + 1,
       case do_send(Connection, Msg) of
           ok ->
  -            {Ref, TRef} = set_request_timer(Timeout),
  +            TRef = set_request_timer(Timeout, Op),
               Rec = #pending{tref = TRef,
  -                           ref = Ref,
                              msg_id = MsgId,
                              op = Op,
                              caller = Caller},
  
positive.code:            = State) ->
      case do_send(Connection, SimpleXml) of
          ok ->
              {Ref, TRef} = set_request_timer(Timeout),
              {noreply, State#state{pending = [#pending{tref = TRef,
                                                        ref = Ref,
                                                        caller = From}
                                               | Pending]}};
          Error ->
  
negative.code:                      type}).
  
  %% Pending replies from server
  -record(pending, {tref :: false | reference(),  % timer reference
  		  msg_id,
                    op,
  		  caller}).% pid which sent the request
  
  %%----------------------------------------------------------------------
  