1 files changed, 2 insertions, 1 deletions

diff --git a/dht/src/Network/StreamServer.hs b/dht/src/Network/StreamServer.hs
index 1055eaad..37f8812a 100644
--- a/dht/src/Network/StreamServer.hs
+++ b/dht/src/Network/StreamServer.hs
@@ -128,7 +128,8 @@ streamServer cfg addrs = do
                     in foldr tryBind again addrs Nothing
     listen sock maxListenQueue
     thread <- mkWeakThreadId <=< forkIO $ do
-        myThreadId >>= flip labelThread "StreamServer.acceptLoop"
+        bindaddr <- Socket.getSocketName sock
+        myThreadId >>= flip labelThread ("StreamServer.acceptLoop." <> bshow bindaddr)
         acceptLoop cfg sock 0
     return (ServerHandle sock thread)