diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 8bcf987c999cea089c051089c705b625529a37b3..51b540cc80d713f45a87202a844ade621dc06880 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -315,7 +315,8 @@ loadDecl ignore_prags mod (_version, decl)
 	-- imported name, to fix the module correctly in the cache
     mk_new_bndr mod mb_parent occ 
 	= newGlobalBinder mod occ mb_parent 
-			  (importedSrcLoc (showSDoc (pprModule mod)))
+			  (importedSrcLoc (showSDoc (ppr (moduleName mod))))
+			-- ToDo: qualify with the package name if necessary
 
     doc = ptext SLIT("Declaration for") <+> ppr (ifName decl)