Thanks for confirmation.

>
>exactly, VFP evaluate the current record 2 times before to start the indexing phase:
>

>clear
>CREATE CURSOR testIndexPhase1 (f1 C)
>testindex()
>
>INSERT INTO testIndexPhase1 values('1')
>testindex()
>
>INSERT INTO testIndexPhase1 values('2')
>testindex()
>
>INSERT INTO testIndexPhase1 values('3')
>testindex()
>GO 2
>testindex()
>
>GO BOTTOM
>SKIP
>testindex()
>
>PROCEDURE testindex
>PUBLIC iPhase
>iPhase=0
>?
>? "current record",RECNO(),"reccount ",RECCOUNT()
>INDEX ON KeyRecno() TAG t1 && FOR .F.
>DELETE TAG ALL
>
>PROCEDURE KeyRecno(rn)
>	? IIF(m.iPhase<2,"Key test recno ","Build index recno "), RECNO(),"OUT OF TABLE " AT 40,EOF()
>	iPhase=m.iPhase+1
>ENDPROC
>