FIX: TYPE() Function Returns Wrong Value for Appended Records

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a program that contains the following code:

         CLEAR
         CLOSE DATA ALL
         SET MULTILOCKS ON
         CREATE TABLE TheTable (;
           Char       C(40),;
           Date       D,;
           DateTime   T,;
           Numeric    N(20,9),;
           Double     B(9),;
           Currency   Y,;
           Logical    L,;
           Memo       M,;
           General    G,;
           Picture    P)
   
         ? "CURSORSETPROP('Buffer', 5)"
         = CURSORSETPROP('Buffer', 5)
         APPEND BLANK
         ? [TYPE("CURVAL('Char')") =], TYPE("CURVAL('Char')")
         ? [TYPE("OLDVAL('Char')") =], TYPE("OLDVAL('Char')")
         ? [TYPE("CURVAL('Date')") =], TYPE("CURVAL('Date')")
         ? [TYPE("OLDVAL('Date')") =], TYPE("OLDVAL('Date')")
         ? [TYPE("CURVAL('DateTime')") =], TYPE("CURVAL('DateTime')")
         ? [TYPE("OLDVAL('DateTime')") =], TYPE("OLDVAL('DateTime')")
         ? [TYPE("CURVAL('Numeric')") =], TYPE("CURVAL('Numeric')")
         ? [TYPE("OLDVAL('Numeric')") =], TYPE("OLDVAL('Numeric')")
         ? [TYPE("CURVAL('Double')") =], TYPE("CURVAL('Double')")
         ? [TYPE("OLDVAL('Double')") =], TYPE("OLDVAL('Double')")
         ? [TYPE("CURVAL('Currency')") =], TYPE("CURVAL('Currency')")
         ? [TYPE("OLDVAL('Currency')") =], TYPE("OLDVAL('Currency')")
         ? [TYPE("CURVAL('Logical')") =], TYPE("CURVAL('Logical')")
         ? [TYPE("OLDVAL('Logical')") =], TYPE("OLDVAL('Logical')")
         ? [TYPE("CURVAL('Memo')") =], TYPE("CURVAL('Memo')")
         ? [TYPE("OLDVAL('Memo')") =], TYPE("OLDVAL('Memo')")
         ? [TYPE("CURVAL('General')") =], TYPE("CURVAL('General')")
         ? [TYPE("OLDVAL('General')") =], TYPE("OLDVAL('General')")
         ? [TYPE("CURVAL('Picture')") =], TYPE("CURVAL('Picture')")
         ? [TYPE("OLDVAL('Picture')") =], TYPE("OLDVAL('Picture')")
         = TABLEREVERT(.T.)
         CLOSE DATA ALL
         DELETE FILE TheTable.DBF
         DELETE FILE TheTable.FPT
         SET MULTILOCKS OFF
   						

2. Run the program.
3. Notice the current value of every field appears as a type logical (L). The TYPE() function reports the data type of each field in the newly appended record as a logical type. However, TYPE() reports the original field type correctly.