diff --git a/test/ExceptionSpec.hs b/test/ExceptionSpec.hs
--- a/test/ExceptionSpec.hs
+++ b/test/ExceptionSpec.hs
@@ -21,7 +21,7 @@
 
 withTestServer :: (Int -> IO a) -> IO a
 withTestServer inner = bracket
-    (N.bindRandomPortTCP "*4")
+    (N.bindRandomPortTCP "127.0.0.1")
     (sClose . snd)
     $ \(prt, lsocket) -> do
         withAsync (runSettingsSocket defaultSettings lsocket testApp)
diff --git a/test/RunSpec.hs b/test/RunSpec.hs
--- a/test/RunSpec.hs
+++ b/test/RunSpec.hs
@@ -79,7 +79,7 @@
 getPort :: IO Int
 getPort = do
     port <- I.atomicModifyIORef nextPort $ \p -> (p + 1, p)
-    esocket <- try $ bindPortTCP port "*4"
+    esocket <- try $ bindPortTCP port "127.0.0.1"
     case esocket of
         Left (_ :: IOException) -> RunSpec.getPort
         Right socket -> do
@@ -91,6 +91,7 @@
     port <- RunSpec.getPort
     baton <- newEmptyMVar
     let settings' = setPort port
+                  $ setHost "127.0.0.1"
                   $ setBeforeMainLoop (putMVar baton ())
                     settings
     bracket
diff --git a/warp.cabal b/warp.cabal
--- a/warp.cabal
+++ b/warp.cabal
@@ -1,5 +1,5 @@
 Name:                warp
-Version:             3.0.0.7
+Version:             3.0.0.8
 Synopsis:            A fast, light-weight web server for WAI applications.
 License:             MIT
 License-file:        LICENSE