1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 282a7dce..d5a49816 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -511,8 +511,8 @@ ncToWire getState seqno bufend pktno msg = do
                     GrpMsg KnownLossless _ -> Lossless
     (state,n24,msgOutMapVar) <- getState
     -- msgOutMap <- readTVar msgOutMapVar
-    result1 <- dtrace XNetCrypto ("lookupInRangeMap typ64=" ++ show typ64)
-                     $ lookupInRangeMap typ64 msgOutMapVar
+    result1 <- dtrace XNetCrypto ("lookupInRangeMap typ64=" ++ show typ64 ++ " " ++ show typ ++ show msg)
+                $ lookupInRangeMap typ64 msgOutMapVar
     case result1 of -- msgOutMapLookup typ64 msgOutMap of
         Nothing -> dtrace XNetCrypto "lookupInRangeMap gave Nothing!" $ return Nothing
         Just outid -> dtrace XNetCrypto ("encrypting packet with Nonce: " ++ show n24) $ do