diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 472754c4e5f1dd90dcab8a600c987fb160de6a9f..e6651ab3b2410d8814fc13f507956f527929a02e 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1220,9 +1220,13 @@ genPipeline stop_after stop_after_flag filename
     haskell_ish_file = suffix `elem` [ "hs", "lhs", "hc" ]
     c_ish_file       = suffix `elem` [ "c", "s", "S" ]  -- maybe .cc et al.??
 
+	-- hack for .hc files
+    real_lang | suffix == "hc" = HscC
+	      | otherwise      = lang
+
     pipeline
       | haskell_ish_file = 
-       case lang of
+       case real_lang of
 	HscC    | split && mangle -> [ Unlit, Cpp, Hsc, HCc, Mangle, 
 					SplitMangle, SplitAs ]
 	        | mangle          -> [ Unlit, Cpp, Hsc, HCc, Mangle, As ]