diff --git a/gcc/objc/ChangeLog b/gcc/objc/ChangeLog
index 6da04931bdfc..b42bb42c68c0 100644
--- a/gcc/objc/ChangeLog
+++ b/gcc/objc/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-08  Iain Sandoe  <iains@gcc.gnu.org>
+
+	* objc-act.c (objc_finish_foreach_loop): Mark collection expression
+	as read.
+
 2011-01-02  H.J. Lu  <hongjiu.lu@intel.com>
 
 	* objc-act.c (check_that_protocol_is_defined): Fix a typo.
diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index 605705b04ff8..6e69070b282b 100644
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -13635,6 +13635,8 @@ objc_finish_foreach_loop (location_t location, tree object_expression, tree coll
   t = build2 (MODIFY_EXPR, void_type_node, objc_foreach_collection_decl, collection_expression);
   SET_EXPR_LOCATION (t, location);
   append_to_statement_list (t, &BIND_EXPR_BODY (bind));
+  /* We have used 'collection_expression'.  */
+  mark_exp_read (collection_expression);
 
   /*  __objc_foreach_enum_state.state = 0; */
   t = build2 (MODIFY_EXPR, void_type_node, objc_build_component_ref (objc_foreach_enum_state_decl, 
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 459750ff4d01..39777861bc53 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-08  Iain Sandoe  <iains@gcc.gnu.org>
+
+	* objc.dg/foreach-1.m: Add "-Wall" to flags.
+
 2011-01-08  Nicola Pero  <nicola.pero@meta-innovation.com>
 
 	PR objc/47078
diff --git a/gcc/testsuite/objc.dg/foreach-1.m b/gcc/testsuite/objc.dg/foreach-1.m
index dd1d8cf985d9..60993d577751 100644
--- a/gcc/testsuite/objc.dg/foreach-1.m
+++ b/gcc/testsuite/objc.dg/foreach-1.m
@@ -4,6 +4,7 @@
 /* { dg-do run } */
 /* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
 /* { dg-additional-sources "../objc-obj-c++-shared/Object1.m" } */
+/* { dg-options "-Wall" } */
 
 #import "../objc-obj-c++-shared/Object1.h"