anchor.diff:      {next_state, read, State#state{ops=NewOps}, ?TIMEOUT};
   
   read({out, Message}, #state{socket=S} = State) ->
  -    Bytes = list_to_binary(encode(Message)),
  +    Bytes = list_to_binary(ldap_msg:encode(Message)),
       gen_tcp:send(S, Bytes),
       {next_state, read, State, ?TIMEOUT};
   
  
positive.code: -record(state, {socket, addr, ops, binddn}). 
  
  -define(TIMEOUT, 120000).
  
  -include("LDAP.hrl").
  
  start_link() ->
      gen_fsm:start_link(?MODULE, [], []).
  
negative.code: read(_Data,  State) ->
      {stop, normal, State}.
  
  handle_event(Event, StateName, State) ->
      {stop, {StateName, undefined_event, Event}, State}.
  
  