anchor.diff:    try
       Stream2 := TFileStream.Create(AFileName2, fmOpenRead or fmShareDenyWrite);
       try
  -      CheckStreamMatch(Stream1, Stream2, Msg);
  +      CheckStreamMatch(Stream1, Stream2, aMsg);
       finally
         Stream2.Free;
       end;
  
positive.code: end;
  
  procedure TAbTestCase.CheckFileMatchesStream(const aFileName : string;
    aStream : TStream; Msg : string);
  var
    FileStream : TStream;
  begin
    FileStream := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyWrite);
    try
      CheckStreammatch(FileStream, aStream, Msg);
    finally
      FileStream.Free;
    end;
  
negative.code:   Check(DirectoryExists(aFileName), 'Unable to locate directory: ' + aFileName);
  end;
  
  procedure TAbTestCase.CheckFilesMatch(const aFileName1, aFileName2: string;
    const aMsg: string = '');
  var
    Stream1, Stream2 : TStream;
  begin
  