Range Check Error in TMVCStreamHelper

[dipold]

Case the Range checking is True in Project Options > Delphi Compiler > Compiling, I am getting Range check error when AString is empty in this code:

delphimvcframework/sources/MVCFramework.Commons.pas

Line 1190 in ab090a1

Self.WriteBuffer(UFTStr[low(UFTStr)], Length(UFTStr));

I think it would be enough to check if the parameter is empty:

procedure TMVCStreamHelper.WriteUTF8(const AString: string);
var
  UFTStr: UTF8String;
begin
  UFTStr := UTF8String(AString);
  if (UFTStr <> '') then
    Self.WriteBuffer(UFTStr[Low(UFTStr)], Length(UFTStr));
end;