--- Merging r36498 into '.':

U    rtl/objpas/fpwidestring.pp
--- Recording mergeinfo for merge of r36498 into '.':
 U   .

# revisions: 36498

git-svn-id: branches/fixes_3_0@36564 -

rtl/objpas/fpwidestring.pp

@@ -248,7 +248,7 @@ begin
   if (cp=CP_UTF8) then
     begin
       destLen:=UnicodeToUtf8(nil,High(SizeUInt),source,len);
-      SetLength(dest,destLen);
+      SetLength(dest,destLen-1);
       UnicodeToUtf8(@dest[1],destLen,source,len);
       SetCodePage(dest,cp,False);
       exit;