anchor.diff:  
         SyntaxTree := ASTBuilder.Run(StringStream);
         try
  -        Result := TSyntaxTreeWriter.ToXML(SyntaxTree);
  +        Result := TSyntaxTreeWriter.ToXML(SyntaxTree, True);
         finally
           SyntaxTree.Free;
         end;
  
positive.code: implementation
  
  uses
    DelphiAST, DelphiAST.Writer, DelphiAST.Classes, XmlDoc;
  
  {$R *.dfm}
  
  
negative.code:       SL.LoadFromFile(OpenDialog1.FileName);
  
        try
          Memo1.Lines.Text := Parse(SL.Text);
        except
          on E: EParserException do
            Memo1.Lines.Add(Format('[%d, %d] %s', [E.Line, E.Col, E.Message]));
  