diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 856d7d0f7b37cd937654d714db2426569ad01a22..7120b931a2b19e8a687c375cb6ac13e499012dc6 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -73,9 +73,9 @@ short_usage = do
   exitWith ExitSuccess
    
 long_usage = do
-  let usage_filename = "ghc-usage.txt"
-      usage_dir = findFile usage_filename cGHC_DRIVER_DIR
-  usage <- readFile (usage_dir ++ "/" ++ usage_filename)
+  let usage_file = "ghc-usage.txt"
+      usage_path = findFile usage_file (cGHC_DRIVER_DIR ++ '/':usage_file)
+  usage <- readFile usage_path
   dump usage
   exitWith ExitSuccess
   where