summaryrefslogtreecommitdiff
path: root/packages/fcl-json/src/fpjson.pp
diff options
context:
space:
mode:
Diffstat (limited to 'packages/fcl-json/src/fpjson.pp')
-rw-r--r--packages/fcl-json/src/fpjson.pp2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-json/src/fpjson.pp b/packages/fcl-json/src/fpjson.pp
index 357ce86a6d..e8b6415df6 100644
--- a/packages/fcl-json/src/fpjson.pp
+++ b/packages/fcl-json/src/fpjson.pp
@@ -724,7 +724,7 @@ end;
function TJSONboolean.GetAsString: TJSONStringType;
begin
- Result:=BoolToStr(FValue);
+ Result:=BoolToStr(FValue, True);
end;
procedure TJSONboolean.SetAsString(const AValue: TJSONStringType);