diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 9b72fc72f8a..d8181ef6860 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-16  Jakub Jelinek  <jakub@redhat.com>
+
+	* objc/objc-act.c (start_class): Register implemented_classes with
+	GC.
+
 2001-02-16  Neil Booth  <neil@daikokuya.demon.co.uk>
 
         * cppfiles.c (_cpp_make_system_header): Generate a file
diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index 9856f34e5ca..8da5c6bc578 100644
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -6130,7 +6130,10 @@ start_class (code, class_name, super_name, protocol_list)
     {
       {
         static tree implemented_classes = 0;
-        tree chain = implemented_classes;
+        tree chain;
+
+	if (!implemented_classes)
+	  ggc_add_tree_root (&implemented_classes, 1);
         for (chain = implemented_classes; chain; chain = TREE_CHAIN (chain))
            if (TREE_VALUE (chain) == class_name)
 	     {