diff --git a/hriemann.cabal b/hriemann.cabal
--- a/hriemann.cabal
+++ b/hriemann.cabal
@@ -1,5 +1,5 @@
 name:                hriemann
-version:             0.3.2.1
+version:             0.3.2.2
 synopsis:            A Riemann Client for Haskell
 description:         A Riemann Client for Haskell
 homepage:            https://github.com/shmish111/hriemann
diff --git a/src/Network/Monitoring/Riemann/TCP.hs b/src/Network/Monitoring/Riemann/TCP.hs
--- a/src/Network/Monitoring/Riemann/TCP.hs
+++ b/src/Network/Monitoring/Riemann/TCP.hs
@@ -27,6 +27,7 @@
   , SocketType(Stream)
   , addrAddress
   , addrFlags
+  , addrFamily
   , connect
   , defaultHints
   , defaultProtocol
@@ -63,13 +64,10 @@
 doConnect hn po = do
   addrs <-
     getAddrInfo
-      (Just $ defaultHints {addrFlags = [AI_NUMERICSERV]})
+      (Just $ defaultHints {addrFlags = [AI_NUMERICSERV], addrFamily = AF_INET})
       (Just hn)
       (Just $ show po)
-  let family =
-        if isSupportedFamily AF_INET6
-          then AF_INET6
-          else AF_INET
+  let family = AF_INET
   case addrs of
     [] -> fail ("No accessible addresses in " ++ show addrs)
     (addy:_) -> do