From fbedb3730485d368c3395ae2fa54dc6f07076302 Mon Sep 17 00:00:00 2001
From: Roland Bengtsson <roland.bengtsson@aholadigital.com>
Date: Sat, 7 Dec 2024 12:31:53 +0200
Subject: [PATCH] Bugfix - Subscriber to destruction on BoldSystem #20

---
 Source/BoldObjectListControllers.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Source/BoldObjectListControllers.pas b/Source/BoldObjectListControllers.pas
index 9cc2857..026c51f 100644
--- a/Source/BoldObjectListControllers.pas
+++ b/Source/BoldObjectListControllers.pas
@@ -435,7 +435,8 @@ procedure TBoldObjectListController.SubscribeToObjectDeleted(Locator: TBoldObjec
   end
   else
   if OwningObjectList.SubscribeToObjectsInList then
-    SubscriptionSource.AddSmallSubscription(FSubscriber, [beDestroying, beObjectDeleted]);
+    SubscriptionSource.AddSmallSubscription(FSubscriber, [beObjectDeleted]);
+  Locator.BoldSystem.AddSmallSubscription(FSubscriber, [beDestroying]);
 end;
 
 procedure TBoldObjectListController.DropSubscriptions;