anchor.diff:      put(action, send),
       Ret = Action(),
       put(action, sent),
  -    put(sent,   N+1),
  +    N2 = N + 1,
  +    put(sent,   N2),
       case Ret of
   	ok ->
   	    receive after 1 -> ok end,
   	    timeout_sink_loop(Action, N+1);
   	Other ->
               ?P("[sink-loop] action result (~w): "
  -               "~n   ~p", [N+1, Other]),
  -	    Other
  +               "~n   ~p", [N2, Other]),
  +	    {Other, N2}
       end.
        
   has_superfluous_schedulers() ->
  
positive.code: 
      A = setup_timeout_sink(RNode, 1000, AutoClose),
      Send = fun() -> gen_tcp:send(A, BinData) end,
      {error,timeout} = timeout_sink_loop(Send),
  
      %% Check that the socket is not busy/closed...
      {error,Error} = gen_tcp:send(A, <<"Hej">>),
  
negative.code: 			Err
  		end
  	end,
      {{error, timeout}, _} = timeout_sink_loop(F),
      unlink(Mad),
      exit(Mad, kill),
      flush(),
  