anchor.diff:      put(sent,   N2),
       case Ret of
   	ok ->
  -	    receive after 1 -> ok end,
  +	    receive
  +                {info_and_die, Info} ->
  +                    {PortStatus, SockStat, SockStatus} = Info(),
  +                    ?P("[sink-loop] info and die: "
  +                       "~n   Port Status:   ~p"
  +                       "~n   Socket Stats:  ~p"
  +                       "~n   Socket Status: ~p",
  +                       [PortStatus, SockStat, SockStatus]),
  +                    exit(normal)
  +            after 1 -> ok
  +            end,
   	    timeout_sink_loop(Action, N+1);
   	Other ->
               ?P("[sink-loop] action result: "
  
positive.code: 			Send = fun() -> gen_tcp:send(A, BinData) end,
  			Self ! {self(), timeout_sink_loop(Send)}
  		end,
      ?P("[para] spawn process 1 with sender fun"),
      Snd1 = spawn_link(SenderFun),
      ?P("[para] spawn process 2 with sender fun"),
  
negative.code:             after_send_timeout(AutoClose, Error_1)
      after 10000 ->
              if (Second =:= 1) ->
                      {PortStatus21, SockStat21, SockStatus21} = Info(),
                      ?P("[para] UNEXPECTED timeout(2,~w):"
                         "~n   Sender 1 Info: ~p"
                         "~n   Port Status:   ~p"
                         "~n   Socket Stats:  ~p"
                         "~n   Socket Status: ~p"
                         "~n   Message Queue: ~p",
                         [AutoClose,
                          (catch process_info(Snd1)),
                          PortStatus21, SockStat21, SockStatus21,
                          flush([])]),
                  Snd1 ! {info_and_die, Info};
                 true ->
                      {PortStatus22, SockStat22, SockStatus22} = Info(),
                      ?P("[para] UNEXPECTED timeout(2,~w):"
                         "~n   Sender 2 Info: ~p"
                         "~n   Port Status:   ~p"
                         "~n   Socket Stats:  ~p"
                         "~n   Socket Status: ~p"
                         "~n   Message Queue: ~p",
                         [AutoClose,
                          (catch process_info(Snd2)),
                          PortStatus22, SockStat22, SockStatus22,
                          flush([])]),
                      Snd2 ! {info_and_die, Info}
              end,
              ct:sleep(?SECS(1)),
  	    exit({timeout, AutoClose, Second})
      end,
      {error,Error_2} = gen_tcp:send(A, <<"Hej">>),
      after_send_timeout(AutoClose, Error_2),
      ?P("[para] done"),    
  