* Fix bug #31587

git-svn-id: trunk@35644 -

packages/fcl-json/src/jsonconf.pp

@@ -724,7 +724,7 @@ Var
   F : TFileStream;
 
 begin
-  F:=TFileStream.Create(AFileName,fmopenRead);
+  F:=TFileStream.Create(AFileName,fmopenRead or fmShareDenyWrite);
   try
     LoadFromStream(F);
   finally