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:             after_send_timeout(AutoClose, Error_1)
      after 10000 ->
              if (Second =:= 1) ->
                      ?P("[para] UNEXPECTED timeout(2,~w):"
                         "~n   Sender 1 Info: ~p"
                         "~n   Message Queue: ~p",
                         [AutoClose,
                          (catch process_info(Snd1)),
                          flush([])]);
                 true ->
                      ?P("[para] UNEXPECTED timeout(2,~w):"
                         "~n   Sender 2 Info: ~p"
                         "~n   Message Queue: ~p",
                         [AutoClose,
                          (catch process_info(Snd2)),
                          flush([])])
              end,
  	    exit({timeout, AutoClose})
      end,
  
      {error,Error_2} = gen_tcp:send(A, <<"Hej">>),
      after_send_timeout(AutoClose, Error_2),
      ?P("[para] done"),    
  
negative.code:                 ?P("[para] timeout received from sender 2 (~p, ~p)", [Snd2, N]),
                  2
          after 20000 ->
                  {PortStatus1, SockStat1, SockStatus1} = Info(),
                  ?P("[para] UNEXPECTED timeout(1,~w) when:"
                     "~n   Sender 1 Info: ~p"
                     "~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(Snd1)),
                      (catch process_info(Snd2)),
                      PortStatus1, SockStat1, SockStatus1,
                      flush([])]),
                  Snd1 ! {info_and_die, Info},
                  Snd2 ! {info_and_die, Info},
                  ct:sleep(?SECS(1)),
                  exit({timeout, AutoClose})
          end,
      
  