anchor.diff:  
     PROCEDURE TIndex.add(anIndexEntry: TIndexEntry);
     begin
  -    // LogEvent(LogDebug, 'TIndex.add(' + aName + ', ' + anIndexEntry.ClassName);
  +//    LogEvent(LogDebug, 'TIndex.add(' + anIndexEntry.getLabel + ', ' + anIndexEntry.ClassName + ')');
       entries.AddObject(anIndexEntry.getLabel, anIndexEntry);
     end;
   
  
positive.code:     topic: TTopic;
      flags: uint8;
    public
      CONSTRUCTOR Create(aName: String; aTopic: TTopic; aFlags: uint8);
      DESTRUCTOR Destroy; override;
      PROPERTY getTopic: TTopic read topic;
      FUNCTION getLabel: String;
      FUNCTION isGlobal: boolean;
      FUNCTION getLevel: integer;
    end;
  
  
  
negative.code:   begin
      LogEvent(LogObjConstDest, 'TIndexEntry.Destroy');
      topic := nil;
      inherited Destroy;
    end;
  
  
  