Bug bei xmega String append

program tryOut;

{ $W+}
{$DEBDELAY} // for faster delay in simulator

Device = xmega128A1, VCC = 3.3;

Import SysTick;

Define
    OSCtype        = int32MHz, PLLmul=4, prescA=1, prescB=1, prescC=1;
    SysTick        = 10;
    StackSize      = 128, iData;
    FrameSize      = 256, iData;

Implementation
{$IDATA}

var
    mystring : String[100];
    mychar   : char;

begin
    mychar : ='a';
    append(mychar,mystring);
end tryOut.