1 files changed, 1 insertions, 1 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index ed0feacb..984afeed 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1909,7 +1909,7 @@ main = do
                 , mbTox             = mbtox
                 , sessionsVar       = ssvar
                 }
-        srv <- streamServer (withSession session) [SockAddrUnix "dht.sock"]
+        srv <- forkStreamServer (withSession session) [SockAddrUnix "dht.sock"]
         return ( do atomically $ readTVar signalQuit >>= check
                     quitListening srv
                , readTVar signalQuit >>= check