Code/Text Caveat

I don't like this:

OBJECT Report 88888 Code/Text Inconsistency
{
  PROPERTIES
  {
    ProcessingOnly=Yes;
    OnPreReport=BEGIN
                  X := 'ABC';
                  Y := 'ABC';

                  X := X + 'D';
                  X += 'E';

                  Y := Y + 'D';
                  Y += 'E';

                  MESSAGE('X=%1, Y=%2',X,Y);
                END;

  }
  CODE
  {
    VAR
      X@1000000000 : Text[30];
      Y@1000000001 : Code[10];

    BEGIN
    END.
  }
}

Of course we're dealing with different Data Types but Text and Code share a lot of functions where they are interpreted in the same way. Except, apparently, when using += in assignments...