1 files changed, 3 insertions, 1 deletions

diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index b0990430..25a4f0f2 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -709,6 +709,8 @@ forkAccountWatcher :: TVar (Map.Map Uniq24 AggregateSession)
                       -> TCP.RelayClient
                       -> Account JabberClients -> Tox JabberClients -> PresenceState Pending -> Announcer -> IO ThreadId
 forkAccountWatcher ssvar tcp acc tox st announcer = forkIO $ do
+    let me = key2id $ toPublic $ userSecret acc
+    dput XMan $ "forkAccountWatcher(" ++ show me ++") started"
     myThreadId >>= flip labelThread ("online:"
                                       ++ show (key2id $ toPublic $ userSecret acc))
     (chan,cs) <- atomically $ do
@@ -738,10 +740,10 @@ forkAccountWatcher ssvar tcp acc tox st announcer = forkIO $ do
 
     -- Stop tasks associated with each contact for this account.
     cs <- atomically $ readTVar (contacts acc)
-    let me = key2id $ toPublic $ userSecret acc
     forM_ (HashMap.toList cs) $ \(them,c) -> do
         stopConnecting tx (id2key them) "disabled account"
         closeSessions me them ssvar
+    dput XMan $ "forkAccountWatcher(" ++ show me ++") stopped"
 
 
 toxAnnounceInterval :: POSIXTime