diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 78bd862afd3293f2383489c61b593fab9e12e9da..d3f5cd7d3bbacfac0fa174d126af512c41778473 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1242,7 +1242,7 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
 		Ln -> True
 		Mangle | keep_raw_s -> True -- first enhancement :)
 		As | keep_s  -> True
-		Cc | keep_hc -> True
+		HCc | keep_hc -> True
 		_other -> False
 
      output_fn <-