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:     release_resource(HugoPtr),
      erlang:garbage_collect(),
      {HugoPtr,HugoBin} = get_resource(Type,Hugo),
      Pid = spawn_link(fun() -> 			     
                               receive {Pid, Type, Resource, Ptr, Bin} ->
                                           Pid ! {self(), got_it},
                                           receive {Pid, check_it} ->
                                                       {Ptr,Bin} = get_resource(Type,Resource),
                                                       Pid ! {self(), ok}
                                           end
                               end
                       end),
      Pid ! {self(), Type, Hugo, HugoPtr, HugoBin},
      {Pid, got_it} = receive_any(),
      erlang:garbage_collect(),   % just to make our ProcBin move in memory
      Pid ! {self(), check_it},
      {Pid, ok} = receive_any(),
      [] = last_resource_dtor_call(),
      {HugoPtr,HugoBin} = get_resource(Type,Hugo),
      {HugoPtr, HugoBin, 1}.
  
  resource_otto(Type) ->
      {OttoPtr, OttoBin} = resource_otto_do(Type),
  
negative.code: forwarder(To, N) ->
      case receive_any() of
  	terminate ->
              gc_and_exit(N);
  	Msg ->	    
  	    To ! Msg,	   
  	    forwarder(To, N+1)
  