anchor.diff:  			_ ->
   				loop(P, ToSend, HaveSent, 0)
   		end;
  -	{isolated,_Nd,I} ->
  +	{isolated,Nd,I} when Nd == P#dp.connected_to ->
   		lager:info("Isolation=~p, for con=~p, direction=~p",[I,P#dp.connected_to,P#dp.direction]),
   		loop(P#dp{isolated = I}, ToSend, HaveSent, 0);
  +	{isolated,_,_} ->
  +		loop(P, ToSend, HaveSent, 0);
   	{isolated,I} ->
   		lager:info("Isolation=~p, for con=~p, direction=~p",
   			[I,P#dp.connected_to,P#dp.direction]),
  
positive.code: 	receive
  		{tcp,_S,_Bin} ->
  			loop(P);
  		{isolated,_Nd,I} ->
  			loop(P#dp{isolated = I});
  		{isolated,I} ->
  			loop(P#dp{isolated = I})
  	end;
  
negative.code: 			% end;
  		{tcp_closed,_} ->
  			ok;
  		{isolated,Nd,I} when P#dp.connected_to == Nd ->
  			lager:info("Isolation=~p, for con=~p, direction=~p",[I,P#dp.connected_to,P#dp.direction]),
  			loop(P#dp{isolated = I});
  		{isolated,_,_} ->
  			loop(P);
  		{isolated,I} ->
  			lager:info("Isolation=~p, for con=~p, direction=~p",
  				[I,P#dp.connected_to,P#dp.direction]),
  