anchor.diff:  	{stop, {shutdown, SessionID}, StateData};
   server_hello(timeout, StateData) ->
   	server_hello1(StateData);
  +%% TLS Record - <<ContentType, Version:16, Length:16, ProtocolMessage>>
  +%% ProtocolMessage - <<MessageType, Length:24, ServeHelloMessage>>
  +%% RFC 5246 Section 7.4.1.3
  +%% ServerHelloMessage - <<ProtocolVersion:16, Gmt_unix_time:32, ServerRand:28,
  +%%		SessionID, CipherSuite, CompressionMethod, ..>>
   server_hello({eap_ttls, _SslPid,
  -		[<<?Handshake, _:32>>, [[?ServerHello | _] | _]] = Data},
  +		[<<?Handshake, _:32>>, [[?ServerHello, _,
  +		<<_:48, ServerRand:28/binary, _/binary>>] | _]] = Data},
   		#statedata{tx_buf = TxBuf} = StateData) ->
  -	NewStateData = StateData#statedata{tx_buf = [TxBuf, Data]},
  +	NewStateData = StateData#statedata{tx_buf = [TxBuf, Data],
  +			server_rand = ServerRand},
   	{next_state, server_hello, NewStateData};
   server_hello({eap_ttls, _SslPid,
   		[<<?Handshake, _:32>>, [[?Certificate | _] | _]] = Data},
  
positive.code: 					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, NewStateData}
  	end.
  
  -spec server_hello(Event :: timeout | term(), StateData :: #statedata{}) ->
  	Result :: {next_state, NextStateName :: atom(), NewStateData :: #statedata{}}
  
negative.code: 		rx_buf = [] :: iolist(),
  		tx_buf = [] :: iolist(),
  		ssl_pid :: pid(),
  		client_rand :: binary(),
  		server_rand :: binary(),
  		tls_key :: string(),
  		tls_crt :: string()}).
  
  