anchor.diff:          FType := value
         else if code = 'Subtag' then
           FID := value
  -      else if code = 'Description' then
  +      else if (code = 'Description') and (FDescription = '') then
           FDescription := value;
       end;
     end;
  
positive.code:             FRegions.Add(FID + '=' + FDescription);
          end;
          FType := '';
          Continue;
        end;
  
  
negative.code:     FID: string;
      FDescription: string;
    begin
      FDescription := '';
  
      for i := 0 to FSubtagRegistry.Count-1 do
      begin
        line := Trim(FSubtagRegistry[i]);
  