diff --git a/ghc/compiler/typecheck/TcGRHSs.lhs b/ghc/compiler/typecheck/TcGRHSs.lhs
index 4bc3bf51ce8abc589240b51afe9a4756cb6848ac..0a0b58e47b15f4924e208dd578ead1cf00574f74 100644
--- a/ghc/compiler/typecheck/TcGRHSs.lhs
+++ b/ghc/compiler/typecheck/TcGRHSs.lhs
@@ -53,7 +53,7 @@ tcGRHS expected_ty (GRHS guard expr locn)
   where
     tc_stmts []		  = tcExpr expr expected_ty	  `thenTc`    \ (expr2, expr_lie) ->
 			    returnTc (([], expr2), expr_lie)
-    tc_stmts (stmt:stmts) = tcStmt tcExpr ListComp (\x->x) combine stmt $
+    tc_stmts (stmt:stmts) = tcStmt tcExpr Guard (\x->x) combine stmt $
 			    tc_stmts stmts
 
     combine stmt _ (stmts, expr) = (stmt:stmts, expr)