1 files changed, 2 insertions, 2 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index c7fd4f06..da73159d 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1667,7 +1667,7 @@ main = do
         "" -> return (return (), Map.empty,return [],[])
         p  -> do
             addr <- getBindAddress p (ip6bt opts)
-            (bt,btR,btBootstrap4, btBootstrap6) <- Mainline.newClient swarms addr
+            (bt,btR,btBootstrap4, btBootstrap6,quitBtClient) <- Mainline.newClient swarms addr
             quitBt <- forkListener "bt" (clientNet bt)
             mainlineSearches <- atomically $ newTVar Map.empty
             peerPort <- atomically $ newTVar 6881 -- BitTorrent client TCP port.
@@ -1748,7 +1748,7 @@ main = do
                                         [ Mainline.routing4 btR
                                         , Mainline.routing6 btR
                                         ]
-            return (quitBt,dhts,ips, [addr])
+            return (quitBt >> quitBtClient,dhts,ips, [addr])
 
     keysdb <- Tox.newKeysDatabase