diff --git a/ghc/lib/glaExts/LazyST.lhs b/ghc/lib/glaExts/LazyST.lhs
index 4c44e30ab456864b259b40ed5905ea29ceb179da..3d457cad3c0d24ea0898a3ebab572c61ea51acfe 100644
--- a/ghc/lib/glaExts/LazyST.lhs
+++ b/ghc/lib/glaExts/LazyST.lhs
@@ -31,7 +31,7 @@ module LazyST (
 import qualified ST
 import qualified STBase
 import ArrBase
-import qualified Unsafe   ( unsafeInterleaveST )
+import qualified UnsafeST   ( unsafeInterleaveST )
 import PrelBase	( Eq(..), Int, Bool, ($), ()(..) )
 import Monad
 import Ix
diff --git a/ghc/lib/glaExts/ST.lhs b/ghc/lib/glaExts/ST.lhs
index f58832a9eafbe1151ae878ea46bf5d5050702073..1df58dcca0a22a4799076d9533503437f69b3152 100644
--- a/ghc/lib/glaExts/ST.lhs
+++ b/ghc/lib/glaExts/ST.lhs
@@ -29,7 +29,7 @@ module ST (
     ) where
 
 import ArrBase
-import Unsafe   ( unsafeInterleaveST )
+import UnsafeST
 import STBase
 import PrelBase	( Eq(..), Int, Bool, ($), ()(..) )
 import Monad