diff --git a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
index 4522b2b4..9fa9a8da 100644
--- a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
+++ b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
@@ -24,18 +24,24 @@ OPStonDiagramSerializer class >> minImportVersion [
 	^ 1
 ]
 
+{ #category : 'serialize/materialize' }
+OPStonDiagramSerializer >> elementsByIdsFrom: elements [
+
+	SystemNotification signal: 'Elements: ' , elements size asString.
+	^ (elements withIndexCollect: [ :each :index |
+		   SystemNotification signal:
+			   'E ' , index asString , ': ' , each uuid asString , '->'
+			   , each asString.
+		   each uuid -> each ]) asDictionary
+]
+
 { #category : 'serialize/materialize' }
 OPStonDiagramSerializer >> elementsByIdsOf: aModel [
 
 	| innerElements allElements |
 	innerElements := OPNavigatorAdapters new allChildrenFor: aModel.
 	allElements := innerElements asArray copyWith: aModel.
-	Notification signal: 'Elements: ' , allElements size asString.
-	^ (allElements withIndexCollect: [ :each :index  |
-		   Notification signal:
-			   'E ' , index asString , ': ' , each uuid asString , '->'
-			   , each asString.
-		   each uuid -> each ]) asDictionary
+	^ self elementsByIdsFrom: allElements
 ]
 
 { #category : 'accessing' }