diff --git a/openssl-streams.cabal b/openssl-streams.cabal
--- a/openssl-streams.cabal
+++ b/openssl-streams.cabal
@@ -1,5 +1,5 @@
 Name:                openssl-streams
-Version:             1.1.0.1
+Version:             1.1.0.2
 License:             BSD3
 License-file:        LICENSE
 Category:            Network, IO-Streams
@@ -12,6 +12,9 @@
   networking using OpenSSL (by way of HsOpenSSL).
   .
   /ChangeLog/
+    [@1.1.0.2@] Fixed a bug in the \"connect\" routine uncovered by the recent
+                network upgrade.
+  .
     [@1.1.0.1@] Widened @network@ dependency to include 2.5.
   .
     [@1.1.0.0@] Updated @openssl-streams@ to work with @io-streams@ 1.1.0.0.
diff --git a/src/System/IO/Streams/SSL.hs b/src/System/IO/Streams/SSL.hs
--- a/src/System/IO/Streams/SSL.hs
+++ b/src/System/IO/Streams/SSL.hs
@@ -99,5 +99,6 @@
 
   where
     hints = N.defaultHints {
-              N.addrFlags = [N.AI_ADDRCONFIG, N.AI_NUMERICSERV]
+              N.addrFlags      = [N.AI_ADDRCONFIG, N.AI_NUMERICSERV]
+            , N.addrSocketType = N.Stream
             }
diff --git a/test/TestSuite.hs b/test/TestSuite.hs
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -58,9 +58,15 @@
         maybe (return ()) N.sClose $ SSL.sslSocket ssl
 
     server ctx mvar = do
+        let hint = N.defaultHints {
+                        N.addrFamily     = N.AF_INET,
+                        N.addrSocketType = N.Stream,
+                        N.addrFlags      = [N.AI_NUMERICHOST]
+                      }
+        xs <- N.getAddrInfo (Just hint) (Just "127.0.0.1") Nothing
+        let [addr] = xs
         sock  <- N.socket N.AF_INET N.Stream N.defaultProtocol
-        addr  <- N.inet_addr "127.0.0.1"
-        let saddr = N.SockAddrInet N.aNY_PORT addr
+        let saddr = N.addrAddress addr
         N.bind sock saddr
         N.listen sock 5
         port  <- N.socketPort sock