>I have a client who is having problems -- yet fails to contact us with errors. Our error handling routine
>is now emailing us with diagnostics through ON ERROR. However, I have not been successful in capturing the name
>of the form currently in use. The PROGRAM() parameter returns ERROR (the error .prg) not the calling form.
>
>All is triggered by one ON ERROR command in our startup program.

Try

IF TYPE("_SCREEN.Activeform.Name") = C
   lcFormName = _SCREEN.Activeform.Name
ENDIF