diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index ba4a24bdcda69b33f987d3ab7b56c949d5895118..73bede1aabdcf1be562d4f3c7d9655284351fe5d 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -1032,7 +1032,7 @@ funAppCtxt fun arg_no arg sty
 	 4 (ppr sty arg)
 
 stmtCtxt ListComp stmt sty
-  = hang (ptext SLIT("In a list-comprehension qualifer:")) 
+  = hang (ptext SLIT("In a pattern guard/list-comprehension qualifier:")) 
          4 (ppr sty stmt)
 
 stmtCtxt DoStmt stmt sty