diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2ba34f3c74c..ef55b792f87 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-22  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+	PR ada/31660
+	* ada-tree.h (lang_tree_node): Fix typo in chain_next.
+
 2007-04-21  Jan Hubicka  <jh@suse.cz>
 
 	* misc.c (gnat_expand_body): Don't call target for destructors,
diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index 358cecafac8..e333d0f0325 100644
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -36,7 +36,7 @@ enum gnat_tree_code {
 /* Ada uses the lang_decl and lang_type fields to hold a tree.  */
 union lang_tree_node
   GTY((desc ("0"),
-       chain_next ("(union lang_tree_node *)GENERIC_NEXT (&%h.generic)")))
+       chain_next ("(union lang_tree_node *)GENERIC_NEXT (&%h.t)")))
 
 {
   union tree_node GTY((tag ("0"))) t;