anchor.diff:  
   class function TWorkflowHelper.MakeRecord(StateHolder : TWorkflowStateHolder; const Project : TFileName;
     Msg : TFixInsightMessage) : TReportRecord;
  -var
  -  sProjectPath : TFileName;
   begin
     Result.Column             := Msg.Column;
     Result.FileName           := Msg.FileName;
  
positive.code: 
    with StateHolder do
      if FConfigData.SnippetSize > 0 then
      begin
        case FInputFileType of
          iftDPR, iftDPK, iftDPROJ:
            sProjectPath := Project;
          iftGROUPPROJ:
            sProjectPath := TPath.Combine(TPath.GetDirectoryName(FConfigData.InputFileName), Project);
        else
          Assert(False, 'Unhandled input file type while trying to extract snippet.');
        end;
  
        Result.Snippet := ExtractSnippet(TPath.Combine(sProjectPath, Msg.FileName), Msg.Line, FConfigData.SnippetSize);
      end;
  end;
  
  end.
  
negative.code: begin
    Log.EnterMethod(TWorkflowHelper, @TWorkflowHelper.ExtractSnippet, [FileName, Line, Size]);
  
    Result := ReadSmallTextFile(FileName, Line - Size div 2, Line + Size div 2);
  
    Log.LeaveMethod(TWorkflowHelper, @TWorkflowHelper.ExtractSnippet, Result.Length);
  end;
  
  class function TWorkflowHelper.FormatProjectTitle(StateHolder : TWorkflowStateHolder; const Project : TFileName) : String;
  