PRB: OLE DLL with Exposed Objects Returns Incorrect Description

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new project called OLETest1.
2. Place the following code into a program file called Test1.prg:

         DEFINE CLASS ErrTest1 AS CUSTOM OLEPUBLIC
   
            NAME="ErrTest1"
            PROCEDURE gettime
               5 &&Put here to generate an error
               RETURN TIME()
            ENDPROC
         ENDDEFINE
   
         DEFINE CLASS ErrTest2 AS CUSTOM OLEPUBLIC
            NAME="ErrTest2"
            PROCEDURE gettime
               5 &&Put here to generate an error
               RETURN TIME()
            ENDPROC
         ENDDEFINE
   							

3. Build this into an OLE .dll named OLETest1.
4. Run the following code in the Command window:

         oTmp5=CREATEOBJECT("OLETest1.ErrTest1")
         oTmp6=CREATEOBJECT("OLETest1.ErrTest2")
         *  ?oTmp5.gettime() && Uncomment to show correct error.
         ?oTmp6.gettime()
   							

This produces the following error: To see the error message referencing the correct class description, uncomment the third line of the code in step 4 and comment the fourth line.