TBCOLUMN colorBlock bug - xharbour

This sample works in Clipper well, but in xHarbour rows are not
coloured as would

Proc Main()
Local nI, nKey, oTbr, oColumn
Field CODE

DBCREATE ( 'TEST', { {'CODE', 'N', 4, 0 } } )
USE TEST

For nI := 1 to 10
dbAppend()
CODE := if(Empty(nI % 2), nI, -nI)
next
dbGoTop()

oTbr := TBrowseDB(5, 5, 18, 75)
oTbr:colorSpec := "N/W,W/N,N/N,R/N"

oColumn = TBcolumnNew('Code', {|| CODE })
oColumn:colorBlock := {|x| if(x < 0, {4,2}, {1,2})}
oTbr:addColumn(oColumn)

While .t.
While ! oTbr:stabilize(); end
nKey := Inkey(0)
if oTbr:applyKey(nKey) == TBR_EXIT
EXIT
endif
end
dbCloseArea()
Return

best regards,
Saulius