From e222353b84696c77817239c24d2f8577d85bc435 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 22 May 2014 09:17:27 +0000
Subject: [PATCH] Work around access violation in "Fetch database items" when
 active database is processed. Fixes issue #3559.

---
 source/main.pas | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 8e61e677..d8559c76 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6661,10 +6661,7 @@ begin
     Conn := ActiveConnection;
     while Assigned(Node) do begin
       db := ListDatabases.Text[Node, 0];
-      if db = ActiveDatabase then
-        RefreshTree
-      else
-        Conn.GetDBObjects(db, True);
+      Conn.GetDBObjects(db, True);
       ListDatabases.RepaintNode(Node);
       DBtree.RepaintNode(FindDBNode(DBtree, Conn, db));
       Node := GetNextNode(ListDatabases, Node, True);