1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/DHT.hs b/src/Network/DHT.hs
index 0dab29cd..285cf9ff 100644
--- a/src/Network/DHT.hs
+++ b/src/Network/DHT.hs
@@ -115,7 +115,7 @@ insertNode param@TableParameters{..} state info witnessed_ip0 = do
     myThreadId >>= flip labelThread "DHT.insertNode.pingResults"
     forM_ ps $ \(CheckPing ns)-> do
       forM_ ns $ \n -> do
-        (b,mip) <- pingProbe (nodeAddr n)
+        (b,mip) <- pingProbe n
         let alive = PingResult n b
         logMessage 'D' $ "PingResult "++show (nodeId n,b)
         _ <- join $ atomically $ atomicInsert param state tm alive mip