diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 2e406b86f7f2f49d5c4734f1fb5bfa30ed61f9b8..30f5f1939cfe086b7da71b59ebbbf69a202ee2b4 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -438,7 +438,7 @@ mkPrintUnqualFn env
   where
     lookup name = case lookupRdrEnv env (Unqual (nameOccName name)) of
 			   Just [name'] -> name == name'
-			   Nothing      -> False
+			   other        -> False
 \end{code}
 
 %************************************************************************