anchor.diff:  
   interface
   
  -uses Windows, SysUtils, Classes, Contnrs, debugging,
  +uses
  +  System.Classes,
  +  System.Contnrs,
  +  System.SysUtils,
  +  Winapi.Windows,
  +
  +  debugging,
     debugkeyboard;
   
   type
  
positive.code:     end
      else
      begin
        if not FInText then ws := ws + '<text>';
        FInText := True;
        ws := ws + FPostContext[i];
      end;
  
negative.code:   s, ws: WideString;
  begin
    ws := '<?xml version="1.0" encoding="UTF-8"?>'#13#10 +
          '<!DOCTYPE regressiontest SYSTEM "https://api.keyman.com/schemas/regtest/regtest.dtd">'#13#10+
          '<regressiontest>'#13#10 +
          '  <info>'#13#10 +
          '    <version>'+SKeymanVersion60+'</version>'#13#10 +
  