From 1a7f3fe29b37781f44ab6c0619d7d8afdedcd849 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 18 Oct 2024 22:28:54 +0200
Subject: [PATCH] * Fix load of extra trees

---
 components/instantsearch/ideinstantsearch.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/instantsearch/ideinstantsearch.pas b/components/instantsearch/ideinstantsearch.pas
index eb295a2793..f4196d725e 100644
--- a/components/instantsearch/ideinstantsearch.pas
+++ b/components/instantsearch/ideinstantsearch.pas
@@ -644,7 +644,7 @@ begin
     I:=GetEnumValue(TypeInfo(TMCMySQLClientVersion),S);
     if I<>-1 then
       Findexer.MySQLVersion:=TMCMySQLClientVersion(I);
-    Cfg.GetValue('Trees/Names',List);
+    List:=Cfg.GetValue('Trees/Names','');
     For I:=SourceTrees.Count-1 downto 0 do
       if Not SourceTrees[i].System then
          SourceTrees.Delete(I);