diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index e0c3a3754ad59091fefd96cc22f6d9fa4fb2ab6c..87d7c81ee536cb0efc0bd35dd4d80e86980c9b75 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -W #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.52 2000/08/07 23:29:46 qrczak Exp $
+-- $Id: Main.hs,v 1.53 2000/08/09 09:56:08 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -2438,3 +2438,11 @@ newdir dir s = dir ++ '/':drop_longest_prefix s '/'
 
 remove_spaces :: String -> String
 remove_spaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
+
+-----------------------------------------------------------------------------
+-- compatibility code
+
+#if __GLASGOW_HASKELL__ <= 408
+catchJust = catchIO
+ioErrors  = justIoErrors
+#endif