From dce827ef65def2828aa1400f48b9b31bd246ff7d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 9 Dec 2014 03:49:46 +0100
Subject: [PATCH] avoid possible failure if dir does not exist

---
 src/ce_common.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index ddda11cd..d9c83142 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -379,6 +379,7 @@ begin
     str1.WriteComponent(aComp);
     str1.Position := 0;
     ObjectBinaryToText(str1,str2);
+    ForceDirectories(ExtractFilePath(aFilename));
     str2.SaveToFile(aFilename);
   finally
     str1.Free;