From a2ef5b9a96d1ebe3dd9d9037fe76f5e003c0c456 Mon Sep 17 00:00:00 2001
From: Yevgeny Iliyn <eugene.ilyin@gmail.com>
Date: Fri, 1 Nov 2019 21:36:45 +0400
Subject: [PATCH] Fix TAsset.SaveIdentityToFile when Root is empty

---
 BoilerplateAssets.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/BoilerplateAssets.pas b/BoilerplateAssets.pas
index 812c2d6..5e91594 100644
--- a/BoilerplateAssets.pas
+++ b/BoilerplateAssets.pas
@@ -487,7 +487,7 @@ function TAsset.SaveIdentityToFile(const Root: TFileName;
   {$ENDIF}
 
   if Root = '' then
-    Delete(Result, 1, 1);
+    Delete(Result, 1, 1)
   else if Root[Length(Root)] = PathDelim then
     Result := Root + Result
   else