Thank you very much for pointing out this error.
This example works perfectly fine with Harbour but fails with xHarbour with this run-time error.
This bug is due to my ignoring the difference in the behavior between Harbour and xHarbour of a function PValue().
We regret the inconvenience.
You can fix this problem by making a small correction in TArrayData class in \fwh\source\classes\tarrdata.prg
Please locate the line:
METHOD New( aData, aStruct ) CLASS TArrayData
Please change it as:
METHOD New( aData, aStruct, p3 ) CLASS TArrayData
With this fix, the above examples works perfectly with xHarbour also.