anchor.diff:    End;
   end;
   
  -procedure TJSONTag_JSONQuery.OnExecute(var aToken: String; aTokenParser: tTokenParser);
  +procedure TJSONTag_JSONQuery.OnExecute(var aToken: String;
  +  aTokenParser: tTokenParser);
   Var
     FJSONValueRoot: TJSONValue;
     FJSONValue: TJSONValue;
  
positive.code:     function GetTagName: String; override;
      procedure OnExecute(var aToken: String; aTokenParser: tTokenParser);
    public
      function Execute(aProjectItem: TProjectItem;aTagName: string;aTokens: tTokenProcessor): String; override;
    end;
  
  
    tJSONTags = array of TJSONTag;
  
  
negative.code:   protected
      FJSONTags: tJSONTags;
    public
      constructor Create(aOutput: tOutput; aPluginName: String;
        aProject: TProject; aConfigPlugin: tConfigPlugin); override;
      destructor Destroy; override;
  
      function GetTag(aTagName: String; aTokens: tTokenProcessor;
        aProjectItem: TObject): String; override;
      function IsTagExists(aTagName: String): Integer; override;
  
    end;
  
    TPlugin_JSONTags = class(TSingletonImplementation, INovusPlugin,
      IExternalPlugin)
    private
    protected
      foProject: TProject;
  