diff --git a/compiler/main/SysTools.hs b/compiler/main/SysTools.hs
index 108aba7910f79b3a1a62bd601928e379e3bcc910..5e9646d510d24328573edaa0f743b94e81b2ac46 100644
--- a/compiler/main/SysTools.hs
+++ b/compiler/main/SysTools.hs
@@ -1329,7 +1329,7 @@ handleProc pgm phase_name proc = do
     case rc of
       ExitSuccess{} -> return r
       ExitFailure n -> throwGhcExceptionIO (
-            ProgramError ("`" ++ takeBaseName pgm ++ "'" ++
+            ProgramError ("`" ++ takeFileName pgm ++ "'" ++
                           " failed in phase `" ++ phase_name ++ "'." ++
                           " (Exit code: " ++ show n ++ ")"))
   where
diff --git a/testsuite/tests/driver/T8602/T8602.stderr b/testsuite/tests/driver/T8602/T8602.stderr
index f3bb7e15460a95082233bb4c9a61649beddf2960..eb28842f5466d90bfe4feab18109afbe67d339c0 100644
--- a/testsuite/tests/driver/T8602/T8602.stderr
+++ b/testsuite/tests/driver/T8602/T8602.stderr
@@ -1,2 +1,2 @@
 A B C
-`t8602' failed in phase `Haskell pre-processor'. (Exit code: 1)
+`t8602.sh' failed in phase `Haskell pre-processor'. (Exit code: 1)