anchor.diff:  		  mod = Mod,
   		  func = Fun,
   		  args = Arg,
  -		  buffer = Buffer} = State) ->
  +		  pst = PST} = State) ->
       ?debug("~p:handle_info(data): Data: ~p", [ ?MODULE, Data]),
       ?debug("~p:handle_info(data): From: ~p:~p ", [ ?MODULE, IP, Port]),
   
  -    case count_brackets(Data, Buffer) of
  -	{ incomplete, NBuffer } ->
  +    case count_brackets(Data, PST) of
  +	{ incomplete, NPST } ->
   	    ?debug("~p:handle_info(data incomplete)", [ ?MODULE]),
   	    inet:setopts(Sock, [{active, once}]),
  -	    {noreply, State#st { buffer = NBuffer} };
  -
  -	{complete, Processed, NBuffer } ->
  +	    {noreply, State#st { pst = NPST} };
  +
  +	{complete, Processed, NPST } ->
   	    ?debug("~p:handle_info(data complete): Processed: ~p", [ ?MODULE, Processed]),
   	    FromPid = self(),
   	    spawn(fun() -> Mod:Fun(FromPid, IP, Port, 
   				   data, Processed, Arg) end),
   	    inet:setopts(Sock, [ { active, once } ]),
  -	    {noreply, State#st { buffer = NBuffer} }
  +	    {noreply, State#st { pst = NPST} }
       end;
   
   
  
positive.code: 
  -define(SERVER, ?MODULE). 
  
  -record(st, {
  	  ip = {0,0,0,0},
  	  port = 0,
  
negative.code: 	    mod = Mod,
  	    func = Fun,
  	    args = Arg,
  	    pst = #pst{}
  	   }}.
  
  
  