diff --git a/ChangeLog b/ChangeLog
index 3b6c175e3..622ace17e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-02  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Tools/AGSIndex.m: Bugfix in setting links to superclasses.
+
 2002-01-01  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/GNUmakefile: Use new -Standards flag for autogsdoc
diff --git a/Tools/AGSIndex.m b/Tools/AGSIndex.m
index f02fd0560..76d101e32 100644
--- a/Tools/AGSIndex.m
+++ b/Tools/AGSIndex.m
@@ -216,16 +216,23 @@ setDirectory(NSMutableDictionary *dict, NSString *path)
 	}
       else if ([name isEqual: @"class"] == YES)
 	{
-	  NSString		*tmp;
+	  NSString	*tmp;
 
 	  newUnit = YES;
 	  unit = [prop objectForKey: @"name"];
-	  [self setGlobalRef: unit type: name];
-
 	  tmp = [prop objectForKey: @"super"];
 	  if (tmp != nil)
 	    {
-	      [self setGlobalRef: unit type: @"super"];
+	      NSMutableDictionary	*t;
+
+	      t = [refs objectForKey: @"super"];
+	      if (t == nil)
+		{
+		  t = [NSMutableDictionary new];
+		  [refs setObject: t forKey: @"super"];
+		  RELEASE(t);
+		}
+	      [t setObject: tmp forKey: unit];
 	    }
 	}
       else if ([name isEqual: @"gsdoc"] == YES)