What is wrong with this?  I am getting a STOP dialog

STOP at line 3346
In file: SUBS COMPILER.INCL
The program has returned a file error. Error: "File Not Found"  File Ref: 1

I think there are things wrong with both FN SaveDoc & FN OpenDoc

Brian

LOCAL FN SaveDoc
savprompt$ = "Save .tbd~ file?"'FN loadSTR$(135)
filnm$ = "Untitled.tbd~"
// File Type: tbd~
fileName$ = FILES$(_fSave,savprompt$,filnm$,vRefNum%)
LONG IF LEN(filename$)
gFBUseNavServices = _zTrue
if filename$ = "" then filename$ = filnm$
DEF OPEN "tbd~"
OPEN "O",1,filename$,,vRefNum%
GET FIELD efHandle&, efID%
WRITE FIELD #8001, efHandle&
CLOSE #1
KILL FIELD efHandle&
END IF
END FN

LOCAL FN OpenDoc
dim gFileSpec as fsSpec
filename$=Files$(_fsspecOpen,"tbd~",,vRefNum%)
gFBUseNavServices = _zTrue
DEF OPEN "tbd~"
LONG IF LEN(filename$)
OPEN "I", 1,gSaveName$,,vRefNum%
READ FIELD #8001, efHandle&
EDIT FIELD #8001, &efHandle&
CLOSE #1
KILL FIELD efHandle&

//open "I", #1,@gMyFileSpec
//READ #1,runcode$

//CLOSE #1
XELSE
BEEP
END IF
END FN

FN SaveDoc
FN OpenDoc