diff --git a/ghc/lib/exts/Exception.lhs b/ghc/lib/exts/Exception.lhs
index 0ad280578ca25d2fa8c296ddc11ac2081c287ea0..2917873e875a5e033b7a938387c801405124515e 100644
--- a/ghc/lib/exts/Exception.lhs
+++ b/ghc/lib/exts/Exception.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: Exception.lhs,v 1.6 1999/03/16 13:20:11 simonm Exp $
+% $Id: Exception.lhs,v 1.7 1999/03/26 19:43:43 sof Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -42,6 +42,10 @@ module Exception (
 
 	throwDyn, 	-- :: Typeable ex => ex -> b
 	catchDyn, 	-- :: Typeable ex => IO a -> (ex -> IO a) -> IO a
+	
+	-- Assertions
+
+	assert,		-- :: Bool -> a -> a
 
 	-- Utilities
 		
@@ -57,7 +61,7 @@ import PreludeBuiltin hiding (catch)
 import Prelude        hiding (catch)
 #else
 import Prelude hiding (catch)
-import PrelGHC (catch#)
+import PrelGHC (catch#, assert)
 import PrelException hiding (catch)
 import PrelConc ( raiseInThread )
 #endif