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' }