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