Configure connection requests before having contact's dhtkey.

1 files changed, 1 insertions, 1 deletions

diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index 4d8910e2..dd8f5940 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -646,7 +646,7 @@ startConnecting0 tx them contact reason = do
             let meth = SearchMethod (toxQSearch tox) onResult (nearNodes tox) (key2id them) 30
                  where
                   onResult theirkey rendezvous = do
-                    dkey <- Tox.getContactInfo tox
+                    dkey <- Tox.getContactInfo (Just (txTCP tx,them)) tox
                     let tr    = Tox.toxToRoute tox
                         route = Tox.AnnouncedRendezvous theirkey rendezvous
                     dput XMan $ unwords [ take 8 (show $ key2id theirkey)