diff --git a/Build/Configure.hs b/Build/Configure.hs
index 894feb409a..96582f9238 100644
--- a/Build/Configure.hs
+++ b/Build/Configure.hs
@@ -27,7 +27,6 @@ tests =
 	, TestCase "bup" $ testCmd "bup" "bup --version >/dev/null"
 	, TestCase "gpg" $ testCmd "gpg" "gpg --version >/dev/null"
 	, TestCase "lsof" $ testCmd "lsof" "lsof -v >/dev/null 2>&1"
-	, TestCase "host" $ testCmd "host" "host localhost >/dev/null 2>&1"
 	, TestCase "ssh connection caching" getSshConnectionCaching
 	] ++ shaTestCases
 	[ (1, "da39a3ee5e6b4b0d3255bfef95601890afd80709")
diff --git a/Utility/SRV.hs b/Utility/SRV.hs
index c43782a568..5443b8b1a5 100644
--- a/Utility/SRV.hs
+++ b/Utility/SRV.hs
@@ -16,7 +16,6 @@ module Utility.SRV (
 	lookupSRV,
 ) where
 
-import qualified Build.SysConfig
 import Utility.Process
 import Utility.Exception
 import Utility.PartialPrelude
@@ -86,12 +85,10 @@ lookupSRV = lookupSRVHost
 #endif
 
 lookupSRVHost :: SRV -> IO [HostPort]
-lookupSRVHost (SRV srv)
-	| Build.SysConfig.host = catchDefaultIO [] $ 
-		parseSrvHost <$> readProcessEnv "host" ["-t", "SRV", "--", srv]
-			-- clear environment, to avoid LANG affecting output
-			(Just [])
-	| otherwise = return []
+lookupSRVHost (SRV srv) = catchDefaultIO [] $ 
+	parseSrvHost <$> readProcessEnv "host" ["-t", "SRV", "--", srv]
+		-- clear environment, to avoid LANG affecting output
+		(Just [])
 
 parseSrvHost :: String -> [HostPort]
 parseSrvHost = orderHosts . catMaybes . map parse . lines