¿Cómo devolver un valor para una función en TI-89?

Question

Esta es mi función para calcular el GCD de dos números a y b. Cuando uso PRGM y EndPRGM, funcionó bien. Sin embargo, siguió apareciendo un mensaje de error, decir "inválido en una función o expresión actual" al crear una función :(. ¿Alguna idea?

gcd(a, b )
Func 
 If a>b Then
  a->t
  b->a
  t->b
 EndIf

 While b#0
  a->t
  b->a
  mod(t, b)->b 
 EndWhile
 Return a
EndFunc