diff --git a/ntp-client/src/Network/NTP/Client.hs b/ntp-client/src/Network/NTP/Client.hs
index cc135c9c4a5..85540e17e1b 100644
--- a/ntp-client/src/Network/NTP/Client.hs
+++ b/ntp-client/src/Network/NTP/Client.hs
@@ -347,7 +347,8 @@ oneshotClient tracer (ntpSettings, ntpStatus)
             Socket.close v6
             traceWith tracer NtpTraceSocketClosed
         These (v4, _) (v6, _) -> do
-            -- TODO !!
+            Socket.close v6
+            Socket.close v4
             traceWith tracer NtpTraceSocketClosed
 
 lookupServers :: [String] -> IO ([AddrInfo], [AddrInfo])