PRB: Cannot Release Procedure's FXP if Class Definition in PRG

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a program file named mytest containing following code:

         FUNCTION TestFunction
   
         o=CREATEOBJECT("cTemp")
         o.SomeMethod()
   
         RETURN
   
         DEFINE CLASS cTemp AS Custom
   
            FUNCTION SomeMethod(lcText)
               lcText=IIF(type("lcText")="C",lcText,"HelloWorld")
               WAIT WINDOW lcText
            RETURN
   
         ENDDEFINE
   						

2. In the Command window, run the following commands:

         CLEAR ALL
         CLOSE ALL
         CLEAR PROG
   
         SET PROCEDURE TO mytest
         ?SET("PROCEDURE")     && The name of the procedure file returned
         DO TestFunction
   
         RELEASE PROCEDURE mytest
         ?SET("PROCEDURE")     && Nothing returned
   						

3. Go to Explorer and find mytest.fxp and try to delete the file. Note that the FXP file cannot be deleted, yet you cannot access either the function in the PRG or the class.