diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,10 @@
 # Revision history for network-run
 
+## 0.3.1
+
+* Using close instead of gracefulClose for client
+  [#5](https://github.com/kazu-yamamoto/network-run/pull/5)
+
 ## 0.3.0
 
 * Specifying IPv6Only
diff --git a/Network/Run/TCP.hs b/Network/Run/TCP.hs
--- a/Network/Run/TCP.hs
+++ b/Network/Run/TCP.hs
@@ -21,7 +21,7 @@
 runTCPClient :: HostName -> ServiceName -> (Socket -> IO a) -> IO a
 runTCPClient host port client = withSocketsDo $ do
     addr <- resolve Stream (Just host) port [AI_ADDRCONFIG]
-    E.bracket (open addr) gclose client
+    E.bracket (open addr) close client
   where
     open addr = E.bracketOnError (openClientSocket addr) close return
 
diff --git a/network-run.cabal b/network-run.cabal
--- a/network-run.cabal
+++ b/network-run.cabal
@@ -1,5 +1,5 @@
 name:                network-run
-version:             0.3.0
+version:             0.3.1
 synopsis:            Simple network runner library
 description:         Simple functions to run network clients and servers.
 -- bug-reports: