diff --git a/source/main.pas b/source/main.pas
index 4b5d2503..e3cbba7d 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6514,7 +6514,7 @@ end;
 procedure TMainForm.AfterClearDBObjects(Database: String);
 begin
   if (Database='') or (ActiveDatabase=Database) then
-    InvalidateVT(ListTables, VTREE_NOTLOADED, False);
+    InvalidateVT(ListTables, VTREE_NOTLOADED, True);
 end;