diff --git a/ghc/Main.hs b/ghc/Main.hs
index a47678b30b17c3055d4c2d2120258717cac466b2..31a9b914b6c816a93f0f1156b3114144271bec85 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -598,8 +598,8 @@ mode_flags =
           "LibDir",
           "Global Package DB",
           "C compiler flags",
-          "Gcc Linker flags",
-          "Ld Linker flags"],
+          "C compiler link flags",
+          "ld flags"],
     let k' = "-print-" ++ map (replaceSpace . toLower) k
         replaceSpace ' ' = '-'
         replaceSpace c   = c