anchor.diff:  	{noreply, State};
   
   handle_cast({send, tcp, Type, Channel, Json}, State) ->
  -	Bin = build_message(Type, Channel, Json),
  +	#state{aes_key = AESKey, aes_vector = AESVector} = State,
  +	Bin = build_message(Type, Channel, Json, AESKey, AESVector),
   	gen_tcp:send(State#state.tcp_socket, Bin),
   	{noreply, State};
   
  
positive.code: 	Id = lists:flatten(IdList),
  	list_to_binary(Id).
  
  build_message({Type, Id}, Channel, Json) ->
  	Response = #envelope{id = Id, type = Type, contents = Json, channel = Channel},
  	wrap_for_send(Response);
  
  build_message(Type, Channel, Json) ->
  	Response = #envelope{id = generate_id(), type = Type, contents = Json, channel = Channel},
  	wrap_for_send(Response).
  
  wrap_for_send(Recthing) ->
  	Json = envelope_to_json(Recthing),
  	JsonEnc = mochijson2:encode(Json),
  	Binary = list_to_binary(lists:flatten(JsonEnc)),
  	netstring:encode(Binary).
  
  %% ------------------------------------------------------------------
  
  
negative.code: 
  -include("log.hrl").
  -include("pre_client.hrl").
  
  -define(AES_BLOCK_SIZE, 16).
  
  -record(state, {
  	cookie :: binary(),
  