1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index dfa0ea9e..aa95df81 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -310,7 +310,7 @@ newTox :: TVar Onion.AnnouncedKeys   -- ^ Store of announced keys we are a rende
        -> IO Tox
 newTox keydb addr mbSessionsState suppliedDHTKey = do
     udp <- {- addVerbosity <$> -} udpTransport addr
-    (crypto0,sessionsState) <- case mbSessionsState of
+    (crypto0,sessionsState0) <- case mbSessionsState of
                                  Nothing -> do
                                     crypto <- newCrypto
                                     sessionsState <- newSessionsState crypto defaultUnRecHook defaultCryptoDataHooks
@@ -335,6 +335,7 @@ newTox keydb addr mbSessionsState suppliedDHTKey = do
     let ignoreErrors _ = return () -- Set this to (hPutStrLn stderr) to debug onion route building.
     orouter <- newOnionRouter ignoreErrors
     (dhtcrypt,onioncrypt,dtacrypt,cryptonet) <- toxTransport crypto orouter lookupClose udp
+    let sessionsState = sessionsState0 { sessionTransport = cryptonet }
     let dhtnet0 = layerTransportM (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt
         tbl4 = DHT.routing4 $ mkrouting (error "missing client")
         tbl6 = DHT.routing6 $ mkrouting (error "missing client")