* TJSJSON.Parse must return a JSValue, JSON spec was amended (https://tools.ietf.org/html/rfc7159)

demo/fcldb/demorest.lpr

@@ -1,6 +1,6 @@
 program demorest;
 
-uses sysutils, classes, js, web, db, jsondataset, restconnection;
+uses sysutils, classes, js, web, db, extjsdataset, jsondataset, restconnection;
 
 Type
 

packages/fcl-db/db.pas

@@ -3553,7 +3553,7 @@ Var
   B : TBookmark;
 
 begin
-  O:=TJSJSON.parse(Value);
+  O:=TJSJSON.parseObject(Value);
   B.Flag:=TBookmarkFlag(O.Properties['flag']);
   B.Data:=O.Properties['Index'];
   GotoBookMark(B)

packages/rtl/js.pas

@@ -567,7 +567,9 @@ type
 
   TJSJSON = class external name 'JSON' (TJSObject)
   Public
-    class function parse(aJSON : String) : TJSObject;
+    class function parse(aJSON : String) : JSValue;
+    // Use this only when you are sure you will get an object, no checking is done.
+    class function parseObject(aJSON : String) : TJSObject; external name 'parse';
     class function stringify(aValue : JSValue) : string;
     class function stringify(aValue,aReplacer : JSValue) : string;
     class function stringify(aValue,aReplacer : JSValue; space:  NativeInt) : string;