diff --git a/ghc/lib/std/PrelFloat.lhs b/ghc/lib/std/PrelFloat.lhs
index de8727b5a784b12d247c3b90cfd1663262e4bcca..3d202c7034c7b686058870f59b5a47393a5a1653 100644
--- a/ghc/lib/std/PrelFloat.lhs
+++ b/ghc/lib/std/PrelFloat.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelFloat.lhs,v 1.8 2000/06/30 13:39:35 simonmar Exp $
+% $Id: PrelFloat.lhs,v 1.9 2000/08/29 16:37:35 simonpj Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -24,7 +24,6 @@ and the classes
 
 module PrelFloat( module PrelFloat, Float#, Double# )  where
 
-import {-# SOURCE #-} PrelErr
 import PrelBase
 import PrelList
 import PrelEnum
diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs
index 2e46e84a0de97a5320f38655bd5899b783d157de..63e8f7efd2f558fb7e57bdb0acc7873a9af99853 100644
--- a/ghc/lib/std/PrelHandle.lhs
+++ b/ghc/lib/std/PrelHandle.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelHandle.lhs,v 1.60 2000/07/25 15:20:10 simonmar Exp $
+% $Id: PrelHandle.lhs,v 1.61 2000/08/29 16:37:35 simonpj Exp $
 %
 % (c) The AQUA Project, Glasgow University, 1994-2000
 %
@@ -1088,12 +1088,6 @@ wantSeekableHandle fun handle act =
       ClosedHandle 	   -> ioe_closedHandle fun handle
       SemiClosedHandle	   -> ioe_closedHandle fun handle
       _ 		   -> act handle_
-  where
-   not_seekable_error = 
-	   IOException (IOError (Just handle) 
-	           		IllegalOperation fun
-		   		("handle is not seekable"))
-
 \end{code}
 
 Internal function for creating an @IOError@ representing the