diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,3 +1,9 @@
+## 1.0.2
+
+* The `ping` thread spawned by `websockets` is now disabled, as it has been
+  observed that these pings are using invalid sockets. Specifically, see
+  https://github.com/lpsmith/postgresql-simple/issues/117.
+
 ## 1.0.1
 
 * Purposefully double-encode websocket traffic. Unfortunately this is necessary
diff --git a/engine-io.cabal b/engine-io.cabal
--- a/engine-io.cabal
+++ b/engine-io.cabal
@@ -1,5 +1,5 @@
 name: engine-io
-version: 1.0.1
+version: 1.0.2
 synopsis: A Haskell implementation of Engine.IO
 homepage: http://github.com/ocharles/engine.io
 license: BSD3
diff --git a/src/Network/EngineIO.hs b/src/Network/EngineIO.hs
--- a/src/Network/EngineIO.hs
+++ b/src/Network/EngineIO.hs
@@ -82,6 +82,7 @@
 import qualified Data.Text.Encoding as Text
 import qualified Data.Vector as V
 import qualified Network.WebSockets as WebSockets
+import qualified Network.WebSockets.Connection as WebSockets
 import qualified System.Random.MWC as Random
 
 --------------------------------------------------------------------------------
@@ -516,7 +517,9 @@
   where
 
   go pending = do
-    conn <- WebSockets.acceptRequest pending
+    conn <- WebSockets.acceptRequest $
+      -- We do our ping/pong, so disable `websockets` doing this.
+      pending { WebSockets.pendingOnAccept = (const $ return ()) }
 
     mWsTransport <- runMaybeT $ do
       Packet Ping (TextPacket "probe") <- lift (receivePacket conn)