Bug in class function TAccountComp.EqualOperationBlocks in UAccounts.pas

[SkybuckFlying]

class function TAccountComp.EqualOperationBlocks(const opBlock1, opBlock2: TOperationBlock): Boolean;
begin
Result := (opBlock1.block = opBlock1.block)

This code is comparing block 1 vs block 1.

Should this not be block1 vs block2 ??????