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:     ResInfo = {Ptr,_} = get_resource(binary_resource_type,ResBin1),
  
      Papa = self(),
      Forwarder = spawn_link(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,
      {Forwarder, 1} = receive_any(),
      erlang:garbage_collect(),
      ResInfo = get_resource(binary_resource_type,ResBin1),
      ResInfo = get_resource(binary_resource_type,ResBin2),
  
negative.code:     release_resource(HugoPtr),
      erlang:garbage_collect(),
      {HugoPtr,HugoBin} = get_resource(Type,Hugo),
      {Pid,_} =
          spawn_monitor(fun() ->
                                receive {Pid, Type, Resource, Ptr, Bin} ->
                                        Pid ! {self(), got_it},
                                        receive {Pid, check_it} ->
                                                {Ptr,Bin} = get_resource(Type,Resource)
                                        end
                                end,
                                gc_and_exit(ok)
                        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},
      {'DOWN', _, process, Pid, ok} = receive_any(),
      [] = last_resource_dtor_call(),
      {HugoPtr,HugoBin} = get_resource(Type,Hugo),
      {HugoPtr, HugoBin, 1}.
  
  gc_and_exit(Reason) ->
      erlang:garbage_collect(),
      exit(Reason).
  
  resource_otto(Type) ->
      {OttoPtr, OttoBin} = resource_otto_do(Type),
  