anchor.diff:  
       property PluginName: string read GetPluginName;
   
  -    function CreatePlugin(aOutput: tOutput; aProject: Tproject; aConfigPlugin: TConfigPlugin): TPlugin; safecall;
  +    function CreatePlugin(aOutput: tOutput; aProject: TProject;
  +      aConfigPlugin: tConfigPlugin): TPlugin; safecall;
     end;
   
   function GetPluginObject: INovusPlugin; stdcall;
  
positive.code:   Result := 'JSONQUERY';
  end;
  
  function TJSONTag_JSONQuery.Execute(aProjectItem: TProjectItem;aTagName: String; aTokens: tTokenProcessor): String;
  var
    LFunctionAParser: tFunctionAParser;
  begin
    Try
      Try
        self.oVariables :=  TProjectItem(aProjectItem).oVariables;
  
        LFunctionAParser := tFunctionAParser.Create(aProjectItem, aTokens, foOutput, aTagName);
  
        LFunctionAParser.OnExecute := OnExecute;
  
  
negative.code:   End;
  end;
  
  procedure TJSONTag_LoadJSON.OnExecute(var aToken: String;
    aTokenParser: tTokenParser; aJSONFilename: String);
  Var
    FJSONValue: TJSONValue;
  begin
    aToken := '';
  
    Try
      FJSONValue := TJSONObject.ParseJSONValue
        (TEncoding.ASCII.GetBytes(TFile.ReadAllText(aJSONFilename)), 0);
    Except
      oOutput.LogError('JSONFilename cannot read [' + aJSONFilename + ']');
    End;
  
    aToken := Self.oVariables.AddVariableObject(FJSONValue, TJSONTag.ClassName);
  end;
  
  
  