diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index ca2adbb1183b91626a6fba4485676112c38a0c94..3fd0915a220094362e87a93fe0f76094d80bab4b 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -897,10 +897,10 @@ pprDefiniteTrace :: String -> SDoc -> a -> a
 -- ^ Same as pprTrace, but show even if -dno-debug-output is on
 pprDefiniteTrace str doc x = pprAndThen trace str doc x
 
-pprPanicFastInt :: String -> SDoc -> FastInt
+pprPanicFastInt :: DynFlags -> String -> SDoc -> FastInt
 -- ^ Specialization of pprPanic that can be safely used with 'FastInt'
-pprPanicFastInt heading pretty_msg =
-    panicFastInt (show (runSDoc doc (initSDocContext PprDebug)))
+pprPanicFastInt dflags heading pretty_msg =
+    panicFastInt (show (runSDoc doc (initSDocContext' dflags PprDebug)))
   where
     doc = text heading <+> pretty_msg