anchor.diff:                     module = M}
           = S)
     when B, not A ->
  -    case setopts(M, Sock, [{active, once}]) of
  -        ok -> S#transport{active = true};
  -        X  -> x({setopts, Sock, M, X})  %% possibly on peer disconnect
  -    end;
  +    setopts(M, Sock),
  +    S#transport{active = true};
   
   setopts(S) ->
       S.
  +
  +%% setopts/2
  +
  +setopts(M, Sock) ->
  +    case setopts(M, Sock, [{active, once}]) of
  +        ok -> ok;
  +        X  -> x({setopts, Sock, M, X})  %% possibly on peer disconnect
  +    end.
   
   %% portnr/2
   
  
positive.code: recv({Msg, Rest}, S) ->  %% have a complete message ...
      recv(acc(Rest), message(recv, Msg, S));
  
  recv(Frag, S) ->         %% or not
      start_fragment_timer(setopts(S#transport{frag = Frag,
                                               flush = false})).
  
  %% acc/2
  
  
negative.code:                            = S)
    when P == ssl, true == B;
         P == tcp ->
      recv(acc(Frag, Bin), S);
  
  %% Capabilties exchange has decided on whether or not to run over TLS.
  transition({diameter, {tls, Ref, Type, B}}, #transport{parent = Pid}
  