anchor.diff:  
       A = setup_timeout_sink(RNode, 1000, AutoClose),
       Send = fun() -> gen_tcp:send(A, BinData) end,
  -    {error,timeout} = timeout_sink_loop(Send),
  +    {{error, timeout}, _} = timeout_sink_loop(Send),
   
       %% Check that the socket is not busy/closed...
       {error,Error} = gen_tcp:send(A, <<"Hej">>),
  
positive.code:                                           Self ! Res,
                                            Res
                                    end,
                             {error, timeout} = timeout_sink_loop(Send)
                     end),
      Diff = get_max_diff(),
      ?P("Max time for send: ~p",[Diff]),
  
negative.code:     put(action, send),
      Ret = Action(),
      put(action, sent),
      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", [N2, Other]),
  	    {Other, N2}
      end.
       
  has_superfluous_schedulers() ->
  