From 30c9d274fb6f609f79c40f874d4ff501e304d291 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@keyman.com>
Date: Mon, 28 May 2018 10:14:41 +0700
Subject: [PATCH] Fixes sillsdev/keyman-issues#5568. Prevents a crash when
 Keyman Developer attempts to load an invalid project file.

---
 windows/src/developer/TIKE/project/ProjectLoader.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/windows/src/developer/TIKE/project/ProjectLoader.pas b/windows/src/developer/TIKE/project/ProjectLoader.pas
index 89938cf4e5..4076bcfae4 100644
--- a/windows/src/developer/TIKE/project/ProjectLoader.pas
+++ b/windows/src/developer/TIKE/project/ProjectLoader.pas
@@ -79,7 +79,12 @@ var
   node, root: IXMLNode;
   pf: TProjectFile;
 begin
-  doc := LoadXMLDocument(FFileName);
+  try
+    doc := LoadXMLDocument(FFileName);
+  except
+    on E:Exception do
+      raise EProjectLoader.Create('Error loading project file: '+E.Message);
+  end;
 
   root := doc.DocumentElement;
   if root.NodeName <> 'KeymanDeveloperProject' then