1 files changed, 2 insertions, 1 deletions

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 367e5bf7..b1c233a3 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -62,6 +62,7 @@ import Control.Concurrent.Lifted.Instrument
 import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
+import DPut
 
 xmppToTox :: Conduit XML.Event IO Tox.CryptoMessage
 xmppToTox = do
@@ -216,7 +217,7 @@ startConnecting tx them = do
 
 stopConnecting :: ToxToXMPP -> PublicKey -> IO ()
 stopConnecting ToxToXMPP{txAnnouncer=announcer,txAccount=acnt} them = do
-    hPutStrLn stderr $ "STOP CONNECTING " ++ show (key2id them)
+    dput XMisc $ "STOP CONNECTING " ++ show (key2id them)
     let pub = toPublic $ userSecret acnt
         me  = key2id pub
     akey <- akeyDHTKeyShare announcer me them