anchor.diff:    begin
       fTokKind := tkSymbl;
       case reader^ of
  -      '{': if (fkBrackets in fFoldKinds) then StartCodeFoldBlock(nil);
  +      '{': StartCodeFoldBlock(nil,fkBrackets in fFoldKinds);
         '}':
         begin
  -        if (fkBrackets in fFoldKinds) then
  -          EndCodeFoldBlock;
  +        EndCodeFoldBlock(fkBrackets in fFoldKinds);
           if (reader^ = '}') and (rkAsm in fCurrRange.rangeKinds) then
             fCurrRange.rangeKinds -= [rkAsm]; ;
           if (rkTokString in fCurrRange.rangeKinds) then
  
positive.code:       end;
      end;
      fCurrRange.rangeKinds += [rkString1];
      if fkStrings in fFoldKinds then
        StartCodeFoldBlock(nil);
      exit;
    end else _postString1: readerReset;
    if rkString1 in fCurrRange.rangeKinds then
  
negative.code:       if fCurrRange.nestedCommentsCount <> 0 then
          exit;
        fCurrRange.rangeKinds -= [rkBlockDoc2, rkBlockCom2];
        EndCodeFoldBlock(fkComments2 in fFoldKinds);
        exit;
      end;
      readLine(reader, fTokStop);
  