From d2cfd5cc7eaba2d4d3912d01f8bcc396bc5bbe6d Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Fri, 15 Jul 2022 06:13:44 +1000
Subject: [PATCH] chore(developer): address review comments

---
 developer/src/tike/Tike.dpr                                   | 2 +-
 developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/developer/src/tike/Tike.dpr b/developer/src/tike/Tike.dpr
index 156cfec68e..bc09c9bfa5 100644
--- a/developer/src/tike/Tike.dpr
+++ b/developer/src/tike/Tike.dpr
@@ -316,7 +316,7 @@ begin
           //TBX.TBXSetTheme('OfficeXP2');
           if TikeActive then Exit;
           Application.CreateForm(TmodWebHttpServer, modWebHttpServer);
-  try
+          try
             Application.CreateForm(TfrmKeymanDeveloper, frmKeymanDeveloper);
             Application.Run;
           finally
diff --git a/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas b/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas
index c9aecb9cec..c666b49642 100644
--- a/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas
+++ b/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas
@@ -119,7 +119,7 @@ var
   ss: TStringStream;
 begin
   try
-    fs := TFileStream.Create(TKeymanDeveloperPaths.ServerDataPath + 'pid.json', fmOpenRead);
+    fs := TFileStream.Create(Filename, fmOpenRead);
     try
       ss := TStringStream.Create('', TEncoding.UTF8);
       try