diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 275f8302c91961e19eb7ed935480d0905b8196ae..ba7cbc62bca507645f32ea0df8ce8ff3fe7467ec 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -259,7 +259,7 @@ improveAvails imp_mod iloc explicits is_unqual avails
   = map improve_avail avails
   where
     improve_avail (Avail n)      = Avail (improve n)
-    improve_avail (AvailTC n ns) = AvailTC n (map improve ns)	-- n doesn't matter
+    improve_avail (AvailTC n ns) = AvailTC (improve n) (map improve ns)
 
     improve name = setNameProvenance name 
 			(NonLocalDef (UserImport imp_mod iloc (is_explicit name)) 
diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index caaa51ea4d8a01944acc8b06754e30a87dc812f1..f6ccf6a39ca1c0666caa4e3491de18d74fe3bca4 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -25,7 +25,7 @@ import VarSet
 import Id		( Id, idType, idInfo, idUnique, isDataConId, isDataConId_maybe,
 			  idUnfolding, setIdUnfolding, isExportedId, isDeadBinder,
 			  idSpecialisation, setIdSpecialisation,
-			  idDemandInfo, setIdDemandInfo,
+			  idDemandInfo, 
 			  setIdInfo,
 			  idOccInfo, setIdOccInfo,
 			  zapLamIdInfo, zapFragileIdInfo,