anchor.diff:      procedure AddError(aLine, aColumn: Integer; aParam, aMessage: string);
       function ToXML: string;
       procedure FromXML(aXml: string);
  -    property Hints:    TScriptValidatorIssueArray read fHints    write fHints;
  +    property Hints: TScriptValidatorIssueArray read fHints write fHints;
       property Warnings: TScriptValidatorIssueArray read fWarnings write fWarnings;
  -    property Errors:   TScriptValidatorIssueArray read fErrors   write fErrors;
  +    property Errors: TScriptValidatorIssueArray read fErrors write fErrors;
     end;
   
   implementation
   uses
     Classes;
   
  -{ TSVResult }
  -procedure TScriptValidatorResult.Add(aLine, aColumn: Integer; aParam, aMessage: string;
  -                                     var aDest: TScriptValidatorIssueArray);
  +{ TScriptValidatorResult }
  +procedure TScriptValidatorResult.Add(aLine, aColumn: Integer; aParam, aMessage: string; var aDest: TScriptValidatorIssueArray);
   var
     I: Integer;
     Issue: TScriptValidatorIssue;
  
positive.code: 
  function TScriptValidatorResult.ToXML: string;
  var
    HintNode,
    WarningNode,
    ErrorNode:   TXmlNode;
  begin
    with TXmlVerySimple.Create do
    begin
      try
        Root.NodeName := 'ScriptValidatorResult';
        HintNode      := Root.AddChild('Hints');
        WarningNode   := Root.AddChild('Warnings');
        ErrorNode     := Root.AddChild('Errors');
  
        ArrayToXML(fHints, HintNode);
        ArrayToXML(fWarnings, WarningNode);
        ArrayToXML(fErrors, ErrorNode);
  
        Result := Text;
      finally
  
negative.code: 
    TScriptValidatorResult = class(TObject)
    strict private
      fHints: TScriptValidatorIssueArray;
      fWarnings: TScriptValidatorIssueArray;
      fErrors: TScriptValidatorIssueArray;
      procedure Add(aLine, aColumn: Integer; aParam, aMessage: string; var aDest: TScriptValidatorIssueArray); inline;
      procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
  