diff --git a/Utility/Terminal.hs b/Utility/Terminal.hs
index 621fa6047a..7fe3640bc1 100644
--- a/Utility/Terminal.hs
+++ b/Utility/Terminal.hs
@@ -37,7 +37,7 @@ checkIsTerminal h = do
 			h' <- getStdHandle sTD_OUTPUT_HANDLE
 				`catch` \(_ :: IOError) ->
 					return nullHANDLE
-			if h == nullHANDLE
+			if h' == nullHANDLE
 				then return (IsTerminal False)
 				else do
 					b' <- isMinTTYHandle h'