WIP: efforts regarding tcp-mediated connections.

1 files changed, 1 insertions, 1 deletions

diff --git a/dht/Announcer/Tox.hs b/dht/Announcer/Tox.hs
index 00eb219b..38e5bbfa 100644
--- a/dht/Announcer/Tox.hs
+++ b/dht/Announcer/Tox.hs
@@ -193,7 +193,7 @@ scheduleSearch announcer k SearchMethod{sSearch,sWithResult,sNearestNodes,sTarge
     mutex <- newMVar () -- This mutex insures one search at a time.
     let astate = AnnounceState st ns
         onResult sr = do
-                runAction announcer "with-search-result" $ do
+                runAction announcer ("search-result:"++unpackAnnounceKey announcer k) $ do
                     got <- sWithResult r sr
                     -- If we had a way to get the source of a search result, we might want to
                     -- treat it similarly to an announcing node and remember it in the 'aStoringNodes'