anchor.diff:  	{'EXIT', Reason} ->
   	    Msg = io_lib:format("sipsocket_tcp failed getting raw socket from pid ~p : ~p",
   				[SPid, Reason]),
  -	    {error, Msg}
  +	    {error, lists:flatten(Msg)}
       end.
   
   %%--------------------------------------------------------------------
  
positive.code: 	{'EXIT', Reason} ->
  	    Msg = io_lib:format("sipsocket_tcp failed sending through pid ~p : ~p",
  				[SPid, Reason]),
  	    {error, Msg}
      end.
  
  %%--------------------------------------------------------------------
  
negative.code: 		{ok, Socket} ->
  		    Socket;
  		{'EXIT', Reason} ->
  		    Msg = io_lib:format("sipsocket_tcp failed fetching TLS socket : ~p",
  					[Reason]),
  		    {error, lists:flatten(Msg)}
  		end;
  	{ok, true} ->
  	    {error, "TLS client disabled"}
  