diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index fa59c92515920d3aa47c9274775cf27f5a70c8e3..5d0673912d96267335c7d4ed244b01358ee05088 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -420,7 +420,7 @@ opt_SimplPedanticBottoms	= lookUp SLIT("-fpedantic-bottoms")
 opt_UF_HiFileThreshold		= lookup_def_int "-funfolding-interface-threshold" (30::Int)
 opt_UF_CreationThreshold	= lookup_def_int "-funfolding-creation-threshold"  (30::Int)
 opt_UF_UseThreshold		= lookup_def_int "-funfolding-use-threshold"	   (8::Int)	-- Discounts can be big
-opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (3::Int)
+opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (2::Int)
 opt_UF_FunAppDiscount		= lookup_def_int "-funfolding-fun-discount"	   (6::Int)	-- It's great to inline a fn
 opt_UF_PrimArgDiscount		= lookup_def_int "-funfolding-prim-discount"	   (1::Int)
 opt_UF_KeenessFactor		= lookup_def_float "-funfolding-keeness-factor"	   (2.0::Float)