diff --git a/rtl/inc/ustringh.inc b/rtl/inc/ustringh.inc
index 16a1ab8389..9887732c4c 100644
--- a/rtl/inc/ustringh.inc
+++ b/rtl/inc/ustringh.inc
@@ -22,7 +22,7 @@ Function Pos (c : UnicodeChar; Const s : UnicodeString; Offset: Sizeint = 1) : S
 Function Pos (const c : RawByteString; Const s : UnicodeString; Offset: Sizeint = 1) : SizeInt;
 Function Pos (const c : UnicodeString; Const s : RawByteString; Offset: Sizeint = 1) : SizeInt;
 Function Pos (const c : ShortString; Const s : UnicodeString; Offset: Sizeint = 1) : SizeInt;
-
+Function StringOfChar(c : Unicodechar;l : SizeInt) : UnicodeString;
 Function UpCase(const s : UnicodeString) : UnicodeString;
 Function  UpCase(c:UnicodeChar):UnicodeChar;
 Function LowerCase(const s : UnicodeString) : UnicodeString;
diff --git a/rtl/inc/ustrings.inc b/rtl/inc/ustrings.inc
index b38a7a458e..3122ffeac1 100644
--- a/rtl/inc/ustrings.inc
+++ b/rtl/inc/ustrings.inc
@@ -1234,6 +1234,15 @@ Function Pos (const c : UnicodeString; Const s : RawByteString; Offset: Sizeint
     result:=Pos(c,UnicodeString(s),OffSet);
   end;
 
+{$ifndef FPC_HAS_UNICODESTR_OF_CHAR}
+{$define FPC_HAS_UNICODESTR_OF_CHAR}
+Function  StringOfChar(c : Unicodechar;l : SizeInt) : UnicodeString;
+begin
+  SetLength(StringOfChar,l);
+  FillWord(Pointer(StringOfChar)^,Length(StringOfChar),word(c));
+end;
+{$endif}
+
 {$ifndef FPC_HAS_POS_CHAR_UNICODESTR}
 {$define FPC_HAS_POS_CHAR_UNICODESTR}
 { Faster version for a char alone. Must be implemented because   }