Is it already known that the XE7 Delphi compiler doesn't collapse duplicate string literals anymore?

Is it already known that the XE7 Delphi compiler doesn't collapse duplicate string literals anymore? Delphi 2 - Delphi XE6 work as expected.

program DupStringCollapseBug;
{$APPTYPE CONSOLE}

function ToPtr(const S: string): Pointer;
begin
  Result := Pointer(S);
end;

begin
  if ToPtr('a1') <> ToPtr('a1') then
    WriteLn('Something is terribly wrong with the compiler');
end.