diff --git a/packages/amunits/src/utilunits/tagsarray.pas b/packages/amunits/src/utilunits/tagsarray.pas
index 55117cb16c..cdded5163d 100644
--- a/packages/amunits/src/utilunits/tagsarray.pas
+++ b/packages/amunits/src/utilunits/tagsarray.pas
@@ -50,7 +50,7 @@ begin
         vtboolean : TagList[ii].ti_data := PtrInt(byte(Args[i].vboolean));
         vtpchar   : TagList[ii].ti_data := PtrInt(Args[i].vpchar);
         vtchar    : TagList[ii].ti_data := PtrInt(Args[i].vchar);
-        vtstring  : TagList[ii].ti_data := PtrInt(PAnsiChar(ShortString(Args[i].vstring^)));
+        vtstring  : TagList[ii].ti_data := PtrInt(PAnsiChar(AnsiString(Args[i].vstring^)));
         vtpointer : TagList[ii].ti_data := PtrInt(Args[i].vpointer);
       end;
       inc(ii);