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