1 files changed, 1 insertions, 1 deletions

diff --git a/dht/examples/tcpclient.hs b/dht/examples/tcpclient.hs
index d168b1fb..858a617d 100644
--- a/dht/examples/tcpclient.hs
+++ b/dht/examples/tcpclient.hs
@@ -16,7 +16,7 @@ main = do
     setVerbose XUnexpected
     crypto <- newCrypto
     (_,client) <- newClient crypto id (\cb p -> cb (Just (False,p)))
-    quitTCP <- forkListener "TCP-recv" (addHandler print (handleMessage client) $ clientNet client)
+    quitTCP <- forkListener "TCP-recv" (dput XTCP . (++) "tcp-parse: ") (addHandler print (handleMessage client) $ clientNet client)
     args <- getArgs
     let addr = read $ args !! 0