anchor.diff:    FCurrentRescanID := waiter.Value;
   end; { TDelphiLensUIProject.ProjectModified }
   
  +procedure TDelphiLensUIProject.ReportException(const funcName, excClass, excMessage: string);
  +begin
  +  raise Exception.CreateFmt('Exception in worker method %s. [%s] %s', [funcName, excClass, excMessage]);
  +end;
  +
   procedure TDelphiLensUIProject.Rescan;
   var
     waiter: IOmniWaitableValue;
  
positive.code: implementation
  
  uses
  Windows,
    System.UITypes,
    System.SysUtils,
    Vcl.Forms,
    Spring,
    DSiWin32,
  
negative.code:       Screen.Cursor := oldCursor;
  
        if not assigned(FScanResult) then
          raise Exception.Create('TDelphiLensUIProject.Activate: FScanResult = nil')
        else if FCurrentResultID = FCurrentRescanID then begin
          context := CreateWorkerContext(FUIXStorage, FProjectName, FScanResult,
            TDLUIXLocation.Create(fileName, unitName, line, column),
  