anchor.diff:  
     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;
  +      Result.Snippet := ExtractSnippet(
  +        TPath.Combine(TPath.GetDirectoryName(Project), Msg.FileName), Msg.Line, FConfigData.SnippetSize);
   end;
   
   end.
  
positive.code: 
  class function TWorkflowHelper.MakeRecord(StateHolder : TWorkflowStateHolder; const Project : TFileName;
    Msg : TFixInsightMessage) : TReportRecord;
  var
    sProjectPath : TFileName;
  begin
    Result.Column             := Msg.Column;
    Result.FileName           := Msg.FileName;
  
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;
  