From 57811fd66ccaa9e5dd8b273668121a15107d96c1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Blizni=C4=8Denko?= <Jan.Bliznicenko@gmail.com>
Date: Thu, 25 Jul 2024 18:44:09 +0200
Subject: [PATCH] x

---
 repository/OpenPonk-Core/OPStonDiagramSerializer.class.st | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
index 6cc8d852..9101343a 100644
--- a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
+++ b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
@@ -30,7 +30,12 @@ OPStonDiagramSerializer >> elementsByIdsOf: aModel [
 	| innerElements allElements |
 	innerElements := OPNavigatorAdapters new allChildrenFor: aModel.
 	allElements := innerElements asArray copyWith: aModel.
-	^ (allElements collect: [ :each | each uuid -> each ]) asDictionary
+	Notification signal: 'Elements: ' , allElements size asString.
+	^ (allElements withIndexCollect: [ :index :each |
+		   Notification signal:
+			   'E ' , index asString , ': ' , each uuid asString , '->'
+			   , each asString.
+		   each uuid -> each ]) asDictionary
 ]
 
 { #category : 'accessing' }