anchor.diff:      { Log the install to the diag folder }
   
       FLogFileName := TKeymanPaths.ErrorLogPath(ChangeFileExt(ExtractFileName(msiLocation.Path), ''));  // I1610 // I2755 // I2792
  -    //ForceDirectories(GetErrLogPath);  // I2768
  +
  +    ApplyWow64SystemProfilePatch; // #6221
   
       MsiEnableLogW(INSTALLLOGMODE_VERBOSE, PWideChar(FLogFileName), 0);
   
  
positive.code:   end;
  end;
  
  initialization
  finalization
    FreeAndNil(FRunTools);
  
negative.code:     procedure WaitFor(hProcess: THandle; var Waiting, Cancelled: Boolean);  // I3349
      procedure WriteToLog(const msg: string);
      procedure RunVersion11To13Upgrade(const KMShellPath: WideString);
      procedure ApplyWow64SystemProfilePatch;
    public
      destructor Destroy; override;
      procedure CheckInternetConnectedState;
  