diff --git a/ghc/compiler/simplCore/MagicUFs.lhs b/ghc/compiler/simplCore/MagicUFs.lhs
index 77e43ae687aedc346800da232be19553cf5994c2..73b803cb1e51d27d17081b67744de8622af16d2b 100644
--- a/ghc/compiler/simplCore/MagicUFs.lhs
+++ b/ghc/compiler/simplCore/MagicUFs.lhs
@@ -14,7 +14,9 @@ module MagicUFs (
     ) where
 
 IMP_Ubiq(){-uitous-}
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(IdLoop)		-- paranoia checking
+#endif
 
 import Id		( addInlinePragma )
 import CoreSyn