diff --git a/HTTP.cabal b/HTTP.cabal
--- a/HTTP.cabal
+++ b/HTTP.cabal
@@ -1,5 +1,5 @@
 Name: HTTP
-Version: 4000.3.1
+Version: 4000.3.2
 Cabal-Version: >= 1.8
 Build-type: Simple
 License: BSD3
@@ -115,8 +115,6 @@
   else
     Build-depends: network >= 2.2.1.8 && < 2.6
 
-  build-tools: ghc >= 7.0 && < 7.12
-
   if flag(warn-as-error)
     ghc-options:      -Werror
 
@@ -125,8 +123,6 @@
 
 Test-Suite test
   type: exitcode-stdio-1.0
-
-  build-tools: ghc >= 7.0 && < 7.12
 
   hs-source-dirs: test
   main-is: httpTests.hs
diff --git a/Network/TCP.hs b/Network/TCP.hs
--- a/Network/TCP.hs
+++ b/Network/TCP.hs
@@ -306,14 +306,7 @@
 -- and that the connection peer matches the given
 -- host name (which is recorded locally).
 isConnectedTo :: Connection -> EndPoint -> IO Bool
-isConnectedTo (Connection conn) endPoint = do
-   v <- readMVar (getRef conn)
-   case v of
-     ConnClosed -> print "aa" >> return False
-     _ 
-      | connEndPoint v == endPoint ->
-          catchIO (getPeerName (connSock v) >> return True) (const $ return False)
-      | otherwise -> return False
+isConnectedTo (Connection conn) endPoint = isTCPConnectedTo conn endPoint
 
 isTCPConnectedTo :: HandleStream ty -> EndPoint -> IO Bool
 isTCPConnectedTo conn endPoint = do