diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 2819e6a353c9f8ac8eb3d392d05ed22073fce85a..16d312f44918f0fb511aaffe2259c2d543649f4d 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -40,7 +40,7 @@ import DataCon		( isNullaryDataCon, dataConTag,
 			  DataCon, ConTag,
 			  dataConFieldLabels )
 import Name		( getOccString, getOccName, getSrcLoc, occNameString, 
-			  nameRdrName, varName,
+			  occNameUserString, nameRdrName, varName,
 			  OccName, Name, NamedThing(..), NameSpace
 			)