diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 9a4362863a62d7a8c7a74b73290d7605f793141d..4c3aa283c39dcb1a2037cc31030618f66e681621 100644
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/ghc/compiler/coreSyn/CoreLint.lhs
@@ -30,7 +30,7 @@ import Maybes		( catMaybes )
 import Name		( isLocallyDefined, getSrcLoc, Name{-instance NamedThing-},
 			  NamedThing(..) )
 import PprCore
-import Outputable	( PprStyle(..), Outputable(..), pprErrorsStyle, printErrs )
+import Outputable	( PprStyle(..), Outputable(..), pprDumpStyle, printErrs )
 import ErrUtils		( doIfSet, ghcExit )
 import PprType		( GenType, GenTyVar, TyCon )
 import Pretty
@@ -109,9 +109,9 @@ lintCoreBindings whoDunnit spec_done binds
     display bad_news
       = vcat [
 		text ("*** Core Lint Errors: in result of " ++ whoDunnit ++ " ***"),
-		bad_news pprErrorsStyle,
+		bad_news pprDumpStyle,
 		ptext SLIT("*** Offending Program ***"),
-		pprCoreBindings pprErrorsStyle binds,
+		pprCoreBindings pprDumpStyle binds,
 		ptext SLIT("*** End of Offense ***")
 	]
 \end{code}