Forms Description

 Hi All,

I am using the samples for the Cadence online document from Product version 31.09 of  November 2009. The sample I am referencing on this post is the one on page 642/643. While I am using as it is i.e.:

;;; creating the File Name field
trFileNameField = hiCreateStringField(
    ?name 'trFileNameField
    ?prompt "File Name"
    ?defValue ".cshrc"
    ?callback "trDoFieldCheckCB( hiGetCurrentForm() )"
    ?editable t
    )
   
;;; checking if the file exists
procedure( trDoFieldCheckCB( theForm )
    if( isFile( theForm->trFileNameField->value )
        then
            println("File exists")
            t
        else
            println("File Does Not Exist--Try Again")
            nil
        ) ;if
) ; procedure

;;; creating the form
trFileForm = hiCreateAppForm(
    ?name ?trFileForm
    ?formTitle "File Form"
    ?callback ?trFileFormCB
    ?fields list( trFileNameField )
    ?unmapAfterCB t
    )
   
procedure( trFileFormCB( theForm )
    if( trDoFieldCheckCB( theForm )
        then
            hiSetCallbackStatus( theForm t )
            hiHighlightField( theForm 'trFileNameField 'background )
            view( theForm->trFileNameField->value )
        else
            hiSetCallbackStatus( theForm nil )
            hiHighlightField( theForm 'trFileNameField 'highlight )
        ) ; if
) ; procedure

;;; displaying the form
hiDisplayForm( 'trFileForm )

I got 

*Error* hiFormDone: argument #1 should be a defstruct (type template = "r") - ?trFileForm

when I click with the mouse on the Ok button and almost identical messages on anywhere else on the form.

Am I missing something obvious to use this simple skill or should I call the form differently as specified in Cadence document?

Thanks a lot for your help,

Fabian