From 8f046a38553c14eac0cc095c1af6321892e44427 Mon Sep 17 00:00:00 2001
From: Thyphoon <thyphoonfr@gmail.com>
Date: Wed, 14 Jan 2026 13:33:33 +0100
Subject: [PATCH]  Bugs on Cluster corrected

---
 PBMap.pb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/PBMap.pb b/PBMap.pb
index a75b11c..1f51945 100644
--- a/PBMap.pb
+++ b/PBMap.pb
@@ -880,6 +880,7 @@ Module PBMap
           *Cluster\Focus = #False
           *Cluster\CellX = cellX
           *Cluster\CellY = cellY
+          AddMapElement(ClusterIndex(), key)
           ClusterIndex() = *Cluster
         EndIf
         
@@ -3317,4 +3318,4 @@ EndModule
 ; FirstLine = 40
 ; Folding = ---------------------
 ; EnableThread
-; EnableXP
\ No newline at end of file
+; EnableXP