Trim routine

Hi, I get this error : ./src/test.p: In main program: ./src/test.p:11: label `goal' used before containing binding contour ------------------------------------------------------------ program t; label goal; var s: string(80); begin if s <>'' then goto goal; s:=trim(s); goto goal; goal: end. -------------------------------------------------------------- I suspect trim routine to be the cause. If I remove trim call, my program compile right. Thanks