From 3148129d6f1ee996a4690a05d079c1cbfde7d2e3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 23 Mar 2017 15:22:07 +0000
Subject: [PATCH] * Fix bug #31587

git-svn-id: trunk@35644 -
---
 packages/fcl-json/src/jsonconf.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-json/src/jsonconf.pp b/packages/fcl-json/src/jsonconf.pp
index 6da2bb9ea0..a9684c444f 100644
--- a/packages/fcl-json/src/jsonconf.pp
+++ b/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