diff --git a/src/tls/tls.erl b/src/tls/tls.erl
index 9c921b36f..620f8d30e 100644
--- a/src/tls/tls.erl
+++ b/src/tls/tls.erl
@@ -198,7 +198,7 @@ recv_data1(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
 	    {error, binary_to_list(Error)}
     end.
 
-send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
+send(#tlssock{tcpsock = TCPSocket, tlsport = Port} = TLSSock, Packet) ->
     case port_control(Port, ?SET_DECRYPTED_OUTPUT, Packet) of
 	<<0>> ->
 	    %?PRINT("OUT: ~p~n", [{TCPSocket, lists:flatten(Packet)}]),
@@ -215,7 +215,7 @@ send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
 		{timeout, _Timer, _} ->
 		    {error, timeout}
 	    after 100 ->
-		    send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet)
+		    send(TLSSock, Packet)
 	    end
     end.