diff --git a/demo/fcldb/demorest.lpr b/demo/fcldb/demorest.lpr
index b8618fb..2137bf6 100644
--- a/demo/fcldb/demorest.lpr
+++ b/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
 
diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas
index 0c8f06a..7cbe452 100644
--- a/packages/fcl-db/db.pas
+++ b/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)
diff --git a/packages/rtl/js.pas b/packages/rtl/js.pas
index 27bee76..cc1c245 100644
--- a/packages/rtl/js.pas
+++ 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;