diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2023-03-26 David Simmons-Duffin <dsd@caltech.edu> 0.8.3
+
+* Disable a flaky test
+
 2023-03-25 David Simmons-Duffin <dsd@caltech.edu> 0.8.2
 
 * Bump bytestring version to build with GHC 9.8.
diff --git a/network-transport-tcp.cabal b/network-transport-tcp.cabal
--- a/network-transport-tcp.cabal
+++ b/network-transport-tcp.cabal
@@ -1,5 +1,5 @@
 Name:          network-transport-tcp
-Version:       0.8.2
+Version:       0.8.3
 Cabal-Version: >=1.10
 Build-Type:    Simple
 License:       BSD3
diff --git a/tests/TestTCP.hs b/tests/TestTCP.hs
--- a/tests/TestTCP.hs
+++ b/tests/TestTCP.hs
@@ -1040,13 +1040,21 @@
 -- | Ensure that if peer host checking works through name resolution: if the
 --   peer claims "localhost", and connects to a transport also on localhost,
 --   it should be accepted.
+--
+-- This test fails on some systems which resolve to
+-- "localhost.localdomain" instead of "localhost". Disabling it for
+-- now.
 testCheckPeerHostResolve :: IO ()
 testCheckPeerHostResolve = do
 
-  let params = defaultTCPParameters { tcpCheckPeerHost = True }
+  let
+    params = defaultTCPParameters { tcpCheckPeerHost = True }
+    -- This test only passes with this choice on some systems
+    -- localHostName = "localhost.localdomain"
+    localHostName = "localhost"
   Right transport1 <- createTransport (defaultTCPAddr "127.0.0.1" "0") params
   -- EndPoints on this transport have addresses with "localhost" host part.
-  Right transport2 <- createTransport (Addressable (TCPAddrInfo "127.0.0.1" "0" ((,) "localhost"))) defaultTCPParameters
+  Right transport2 <- createTransport (Addressable (TCPAddrInfo "127.0.0.1" "0" ((,) localHostName))) defaultTCPParameters
 
   Right ep1 <- newEndPoint transport1
   Right ep2 <- newEndPoint transport2
@@ -1124,7 +1132,7 @@
            , ("MaxLength",              testMaxLength)
            , ("CloseEndPoint",          testCloseEndPoint)
            , ("CheckPeerHostReject",    testCheckPeerHostReject)
-           , ("CheckPeerHostResolve",   testCheckPeerHostResolve)
+           -- , ("CheckPeerHostResolve",   testCheckPeerHostResolve) -- flaky
            , ("UnreachableSelfConnect", testUnreachableSelfConnect)
            , ("UnreachableConnect",     testUnreachableConnect)
            ]