diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 68ac30125e491bb57e7b50d167918f12f003b5be..df72d3159b08b92abbc35a8613a547871ca7fe1e 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -764,8 +764,9 @@ reportUnusedNames mod_name direct_import_mods
 
 	-- unused_imp_mods are the directly-imported modules 
 	-- that are not mentioned in minimal_imports
-	unused_imp_mods = [m | m <- direct_import_mods, 
-				not (maybeToBool (lookupFM minimal_imports m))]
+	unused_imp_mods = [m | m <- direct_import_mods,
+			       not (maybeToBool (lookupFM minimal_imports m)),
+			       moduleName m /= pRELUDE_Name]
 
 	module_unused :: Name -> Bool
 	-- Name is imported from a module that's completely unused,
diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 7bd43026f8580702e28e5b03098253a727441c66..4a8b0d341a69863990133994f15062eea7c10e76 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -36,7 +36,6 @@ import OccName		( OccName,
 import TysWiredIn	( listTyCon )
 import Type		( funTyCon )
 import Module		( ModuleName, mkThisModule, moduleName, mkVanillaModule, pprModuleName )
-import PrelInfo		( pRELUDE_Name )
 import FiniteMap
 import UniqSupply
 import SrcLoc		( SrcLoc, noSrcLoc )
@@ -709,8 +708,7 @@ mapFvRn f xs = mapRn f xs	`thenRn` \ stuff ->
 warnUnusedModules :: [Module] -> RnM d ()
 warnUnusedModules mods
   | not opt_WarnUnusedImports = returnRn ()
-  | otherwise 		      = mapRn_ (addWarnRn . unused_mod) $
-				filter (/= pRELUDE_Name) (map moduleName mods)
+  | otherwise 		      = mapRn_ (addWarnRn . unused_mod . moduleName) mods
   where
     unused_mod m = vcat [ptext SLIT("Module") <+> quotes (pprModuleName m) <+> 
 			   text "is imported, but nothing from it is used",