1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 6f20e670..d3bf9606 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -859,7 +859,8 @@ handshakeH sessions addrRaw hshake@(Handshake (Cookie n24 ecookie) nonce24 encry
     return Nothing
 
 sessionPacketH :: NetCryptoSessions -> SockAddr -> CryptoPacket Encrypted -> IO (Maybe (x -> x))
-sessionPacketH sessions addr (CryptoPacket nonce16 encrypted) = do
+sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
+    let addr = either id id $ either4or6 addrRaw
     dput XNetCrypto ("RECIEVED CRYPTOPACKET from " ++ show addr)
     let crypto = transportCrypto sessions
         allsessions = netCryptoSessions sessions