1 files changed, 12 insertions, 5 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index d7c817ca..f9dc777d 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1366,17 +1366,24 @@ onNewToxSession runio sv ssvar invc ContactInfo{accounts} addrTox netcrypto = do
 
     uniqkey <- xor24 <$> hash24 (them netcrypto) <*> hash24 (me netcrypto)
 
+    let me_dot_tox = xmppHostname $ me netcrypto
+        them_dot_tox = xmppHostname $ them netcrypto
+
     c <- atomically $ do
         mc <- Map.lookup uniqkey <$> readTVar ssvar
         case mc of
             Nothing -> do
                 announce <- do
-                    v <- newTVar Nothing
+                    v <- newTVar $ Just them_dot_tox
                     let ck       = uniqueAsKey uniqkey
-                        condta s = ConnectionData (Left (Local addrTox))
-                                                XMPPServer.Tox
-                                                (xmppHostname $ me s)
-                                                v
+                        condta s = ConnectionData
+                            { cdAddr           = Left (Local addrTox)
+                            , cdType           = XMPPServer.Tox
+                            , cdProfile        = me_dot_tox
+                            , cdRemoteName     = v
+                            , cdTheirNameForMe = Just me_dot_tox
+                            , cdTheirName      = Just them_dot_tox
+                            }
                     return $ \s e -> writeTChan (xmppEventChannel sv) ( (ck, condta s), e)
                 c <- newAggregateSession $ onStatusChange announce
                 modifyTVar' ssvar $ Map.insert uniqkey c