anchor.diff:  %% Any other message with a header and no length errors: send to the
   %% parent.
   recv1(Name, Pkt, #state{}) ->
  -    throw({?MODULE, Name, Pkt}).
  +    {recv, Name, Pkt}.
   
   %% recv/3
   
  
positive.code:     diameter_codec:encode(Dict, #diameter_packet{header = Hdr,
                                                   msg = Rec}).
  
  %% incoming/2
  
  incoming({Msg, NPid}, S) ->
      try recv(Msg, S) of
          T ->
              NPid ! {diameter, discard},
              T
      catch
          {?MODULE, Name, Pkt} ->
              incoming(Name, Pkt, NPid, S)
      end;
  
  incoming(Msg, S) ->
      try
          recv(Msg, S)
      catch
          {?MODULE, Name, Pkt} ->
              incoming(Name, Pkt, false, S)
      end.
  
  %% incoming/4
  
  incoming(Name, Pkt, NPid, #state{parent = Pid} = S) ->
      Pid ! {recv, self(), get_route(Pkt), Name, Pkt, NPid},
      rcv(Name, Pkt, S).
  
  %% recv/2
  
  
negative.code: 
  %% Incoming message from the transport.
  transition({diameter, {recv, MsgT}}, S) ->
      {Msg, NPid} = msg(MsgT),
      incoming(recv(Msg, S), NPid, S);
  
  %% Timeout when still in the same state ...
  transition({timeout = T, PS}, #state{state = PS}) ->
  