2019r2 Crashes on "RemoveAllRows"

This procedure worked fine in version 2019r1, but crashes on “RemoveAllRows” in version 2019r2.
CurrentCustOrdItems is a class holding data [CurrentCustOrdItems () as CustomerOrderItem] .

Dim OrdItem As OrderItem

CustomerOrderWindow.CurrentCustOrdItems.RemoveAllRows //RemoveAllRows causes crash here

If rsOrderItems <> Nil Then
While Not rsOrderItems.EOF
OrdItem = New OrderItem

OrdItem.OrderID = rsOrderItems.Field("orders_id").StringValue
OrdItem.ProductID = rsOrderItems.Field("products_id").StringValue
OrdItem.ModelCode = rsOrderItems.Field("products_model").StringValue
OrdItem.ProductName = rsOrderItems.Field("products_name").StringValue
OrdItem.TableRowID = rsOrderItems.Field("orders_products_id").IntegerValue
OrdItem.UnitFinalPrice = rsOrderItems.Field("final_price").CurrencyValue
OrdItem.QuantityOrdered = rsOrderItems.Field("products_quantity").IntegerValue
OrdItem.SalesTaxRate = rsOrderItems.Field("products_tax").DoubleValue

CustomerOrderWindow.CurrentCustOrdItems.Append(OrdItem)

rsOrderItems.MoveNext

Wend
rsOrderItems.Close
End If

Related to feedback://showreport?report_id=57875 ?

Fixed.

Until a new Xojo release is issued, a good work-around is:

.ResizeTo (-1) instead of .RemoveAllRows