anchor.diff:  	  mod = undefined,
   	  func = undefined,
   	  args = undefined,
  -	  buffer = undefined
  +	  pst = undefined %%  Payload state
   	 }).
   
   %%%===================================================================
  
positive.code: 		  mod = Mod,
  		  func = Fun,
  		  args = Arg,
  		  buffer = Buffer} = 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 } ->
  	    ?debug("~p:handle_info(data incomplete)", [ ?MODULE]),
  	    inet:setopts(Sock, [{active, once}]),
  	    {noreply, State#st { buffer = NBuffer} };
  
  	{complete, Processed, NBuffer } ->
  	    ?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} }
      end;
  
  
  
negative.code: 
  -define(SERVER, ?MODULE). 
  
  -record(pst, {
  	  buffer = [],
  	  balance = undefined,
  	  in_string = false,
  	  escaped = false
  	 }).
  
  -record(st, {
  	  ip = {0,0,0,0},
  	  port = 0,
  