anchor.diff:  
   check_reply(Str, State) ->
       case split_reply(Str, []) of
  -	{"+OK " ++ Res, Rest} ->
  +	{"+OK" ++ Res, Rest} ->
   	    NewS = State#pstate{acc=Rest,more=false},
   	    {ok, Res, NewS};
  -	{"-ERR " ++ Res, Rest} ->
  +	{"-ERR" ++ Res, Rest} ->
   	    NewS = State#pstate{acc=Rest,more=false},
   	    {error, Res, NewS};
   	{".", Rest} ->
  
positive.code: 	  lines,
  	  reply=[],
  	  more=true,
  	  remain
  	 }).
  
  -record(satt, {
  
negative.code: 	{ok, Bin} ->
  	    Acc = binary_to_list(Bin),
  	    if
  		Remain == dot ->
  		    case find_dot(Acc, State#pstate.dotstate) of
  			{more, DotState} ->
  			    State2 = State#pstate{acc=[],
  						  dotstate=DotState,
  						  lines=[Acc|State#pstate.lines],
  						  more=true},
  			    {more, State2};
  			{ok, DotState, Lines, NAcc} ->
  			    
  			    State2 = State#pstate{acc=NAcc,
  						  dotstate=DotState,
  						  lines=[Lines|State#pstate.lines],
  						  more=false},
  			    {done, State2}
  		    end;
  		Remain =< length(Acc) ->
  		    {Lines, NAcc} = split_at(Acc, Remain),
  		    State2 = State#pstate{acc=NAcc,
  