TBrowse stabilization bug

Hello, All

After several calls stabilize() method TBrowse object incorrect
displayed on the screen. See test below:

Function Main()
Local oB, n, cField

dbCreate('test', {{'NN', 'N', 3, 0},{'CC', 'C', 30, 0}},, .t.)
for n := 1 to 64
dbAppend()
Field->NN := n
Field->CC := Str(n)
next
go top
cls
oB := TBrowseDB(1,1,18,50)
for n := 1 to FCount()
cField := FieldName( n )
oB:AddColumn( TBColumnNew( cField, FieldBlock( cField ) ) )
next
oB:goTop()
oB:ForceStable()
oB:PageDown()
for n := 1 to 12
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
for n := 1 to 12
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
for n := 1 to 13
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
for n := 1 to 12
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
for n := 1 to 12
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
for n := 1 to 13
if ! oB:stable()
oB:stabilize()
endif
next
oB:PageDown()
oB:ForceStable()
wait
return nil

Best regards, Pavel Tsarenko