anchor.diff:      send2_do2(SendBlobF, self()),
   
       Papa = self(),
  -    Forwarder = spawn_link(fun() -> forwarder(Papa) end),
  +    {Forwarder,_} = spawn_monitor(fun() -> forwarder(Papa) end),
       io:format("sending to forwarder pid=~p\n",[Forwarder]),
       send2_do2(SendBlobF, Forwarder),
       Forwarder ! terminate,
  -    {Forwarder, 4} = receive_any(),
  +    {'DOWN', _, process, Forwarder, 4} = receive_any(),
       ok.
   
   send2_do2(SendBlobF, To) ->   
  
positive.code: forwarder(To, N) ->
      case receive_any() of
  	terminate ->
  	    To ! {self(), N};
  	Msg ->	    
  	    To ! Msg,	   
  	    forwarder(To, N+1)
  
negative.code:     ResInfo = {Ptr,_} = get_resource(binary_resource_type,ResBin1),
  
      Papa = self(),
      {Forwarder,_} = spawn_monitor(fun() -> forwarder(Papa) end),
      io:format("sending to forwarder pid=~p\n",[Forwarder]),  
      Forwarder ! ResBin1,
      ResBin2 = receive_any(),
      ResBin2 = ResBin1,
      ResInfo = get_resource(binary_resource_type,ResBin2),
      Forwarder ! terminate,
      {'DOWN', _, process, Forwarder, 1} = receive_any(),
      erlang:garbage_collect(),
      ResInfo = get_resource(binary_resource_type,ResBin1),
      ResInfo = get_resource(binary_resource_type,ResBin2),
  