diff --git a/http-streams.cabal b/http-streams.cabal
--- a/http-streams.cabal
+++ b/http-streams.cabal
@@ -1,6 +1,6 @@
 cabal-version:       >= 1.10
 name:                http-streams
-version:             0.6.0.1
+version:             0.6.0.2
 synopsis:            An HTTP client using io-streams
 description:
  /Overview/
diff --git a/src/Network/Http/Client.hs b/src/Network/Http/Client.hs
--- a/src/Network/Http/Client.hs
+++ b/src/Network/Http/Client.hs
@@ -47,7 +47,7 @@
 \     'sendRequest' c q 'emptyBody'
 
 \     `receiveResponse` c (\\p i -> do
-\         x <- Streams.read b
+\         x <- Streams.read i
 \         S.putStr $ fromMaybe \"\" x)
 
 \     'closeConnection' c
diff --git a/src/Network/Http/Connection.hs b/src/Network/Http/Connection.hs
--- a/src/Network/Http/Connection.hs
+++ b/src/Network/Http/Connection.hs
@@ -226,11 +226,12 @@
 --
 openConnectionSSL :: SSLContext -> Hostname -> Port -> IO Connection
 openConnectionSSL ctx h1' p = do
-    s <- socket AF_INET Stream defaultProtocol
-
     is <- getAddrInfo Nothing (Just h1) (Just $ show p)
 
     let a = addrAddress $ head is
+        f = addrFamily $ head is
+    s <- socket f Stream defaultProtocol
+
     connect s a
 
     ssl <- SSL.connection ctx s
@@ -364,7 +365,7 @@
 -- content from the server:
 --
 -- >     receiveResponse c (\p i -> do
--- >         m <- Streams.read b
+-- >         m <- Streams.read i
 -- >         case m of
 -- >             Just bytes -> putStr bytes
 -- >             Nothing    -> return ())
@@ -373,7 +374,7 @@
 -- 'InputStream', which is the whole point of having an @io-streams@
 -- based HTTP client library.
 --
--- The final value from the handler function.  is the return value of
+-- The final value from the handler function is the return value of
 -- @receiveResponse@, if you need it.
 --
 {-
diff --git a/src/Network/Http/Inconvenience.hs b/src/Network/Http/Inconvenience.hs
--- a/src/Network/Http/Inconvenience.hs
+++ b/src/Network/Http/Inconvenience.hs
@@ -219,7 +219,7 @@
     SSL.contextSetDefaultCiphers ctx
 #if defined __MACOSX__
     SSL.contextSetVerificationMode ctx SSL.VerifyNone
-#elif defined __WIN32__
+#elif defined __WINDOWS__
     SSL.contextSetVerificationMode ctx SSL.VerifyNone
 #else
     SSL.contextSetCADirectory ctx "/etc/ssl/certs"