anchor.diff:      fWarnings: TScriptValidatorIssueArray;
       fErrors: TScriptValidatorIssueArray;
       procedure Add(aLine, aColumn: Integer; const aParam, aMessage: string; var aDest: TScriptValidatorIssueArray); inline;
  -    procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
  -    procedure XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
  +    procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TKMXmlNode);
  +    procedure XMLToArray(aSrc: TKMXmlNode; var aDest: TScriptValidatorIssueArray);
       function FixText(const aTest: string): string;
     public
       procedure AddHint(aLine, aColumn: Integer; const aParam, aMessage: string);
  
positive.code: end;
  
  
  procedure TScriptValidatorResult.ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
  var
    Node:  TXmlNode;
    Issue: TScriptValidatorIssue;
  begin
    for Issue in aSrc do
    begin
      Node := aDest.AddChild('Issue');
      Node.SetAttribute('Line', IntToStr(Issue.Line));
      Node.SetAttribute('Column', IntToStr(Issue.Column));
      Node.SetAttribute('Module', Issue.Module);
      Node.SetAttribute('Param', Issue.Param);
      Node.SetAttribute('Msg', Issue.Msg);
    end;
  end;
  
  
  procedure TScriptValidatorResult.XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
  var
    I: Integer;
    Node: TXmlNode;
    Issue: TScriptValidatorIssue;
    Len: Integer;
  begin
    for I := 0 to aSrc.ChildNodes.Count - 1 do
    begin
      Node := aSrc.ChildNodes[I];
  
      Len := Length(aDest);
      SetLength(aDest, Len + 1);
      Issue.Line   := StrToInt(Node.Attribute['Line']);
      Issue.Column := StrToInt(Node.Attribute['Column']);
      Issue.Module := FixText(Node.Attribute['Module']);
      Issue.Param  := FixText(Node.Attribute['Param']);
      Issue.Msg    := FixText(Node.Attribute['Msg']);
      aDest[Len]   := Issue;
    end;
  end;
  
negative.code: unit ScriptValidatorResult;
  interface
  uses
    SysUtils, KM_IoXML;
  
  
  type
  