diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 00d0383747..28b2d6280c 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -1740,6 +1740,12 @@ begin
     Result:='0';
 end;
 
+// from textmode IDE util funcs.
+function BoolToStr(B: boolean; const TrueS, FalseS: string): string; 
+begin
+  if B then Result:=TrueS else BoolToStr:=FalseS;
+end;
+
 function StrToBoolDef(const S: string; Default: Boolean): Boolean;
 begin
   if not(TryStrToBool(S,Result)) then
diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc
index 10a34fb16f..8cdb68c3fe 100644
--- a/rtl/objpas/sysutils/sysstrh.inc
+++ b/rtl/objpas/sysutils/sysstrh.inc
@@ -210,7 +210,8 @@ Function FormatCurr(const Format: string; Value: Currency; Const FormatSettings:
 {$endif}
 
 function StrToBool(const S: string): Boolean;
-function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;
+function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;  
+function BoolToStr(B: Boolean;const TrueS,FalseS:string): string; inline;
 function StrToBoolDef(const S: string; Default: Boolean): Boolean;
 function TryStrToBool(const S: string; out Value: Boolean): Boolean;