Buenas
Teniendo esto definido

#ifdef __HARBOUR__
#ifdef __WINDOWS__
#include "hbcompat.ch"
#endif
#endif

El preprocedado de;
#xcommand DEFINE [PC] KEY [ <oKey> ] ;
[ FONT <oFont> ];
[ OF <oParent> [, <oParentN>]] ;
=> ;
[ <oKey > := ] gKey():New( \{ <oParent> [, <oParentN>]\}, <oFont> )

#xcommand [PC_Set] KEY <nKey>[, <nKey1> ] ;
[ ACTION <bAction> ];
[ OF <oKey> ] ;
=> ;
<oKey>:SetKey( \{ <nKey>[, <nKey1> ] \}, [ \{|o| <bAction> \} ] )


Es traducido como;

oKey := gKey():New( { oTree_Lineas}, )
oKey:hb_SetKey({ 0xFFBF }, {|o| eval( oBtnPon:bAction ) })

Y hace cascar porque el method hb_setKeY() no existe

El culpable es el hbcompat.ch, no he tenido tiempo de mirar el porque, pero informo por si
os encontrais con cosas raras.