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