From 32655fd0d1900c6e3075b03382af0252f9947f67 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 21 Mar 2016 22:41:03 +0100
Subject: [PATCH] temp fix order of init and service assignation

---
 src/ce_tools.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ce_tools.pas b/src/ce_tools.pas
index 6817794a..55c71f39 100644
--- a/src/ce_tools.pas
+++ b/src/ce_tools.pas
@@ -127,6 +127,7 @@ end;
 constructor TCEToolItem.create(ACollection: TCollection);
 begin
   inherited;
+  // TODO-cbugfix: tools are init before symstring, even when order of 'uses' is modified (lpr)
   fSymStringExpander:= getSymStringExpander;
   fMsgs       := getMessageDisplay;
   fToolItems  := TCEToolItems(ACollection);
@@ -200,6 +201,8 @@ begin
   //
   if fClearMessages then
     getMessageDisplay(fMsgs).clearByContext(amcMisc);
+  if fSymStringExpander = nil then
+    fSymStringExpander:= getSymStringExpander;
   //
   old := GetCurrentDirUTF8;
   fProcess := TCEProcess.Create(nil);