diff --git a/repository/OpenPonk-PetriNets/OPPetriNetArcControllerTest.class.st b/repository/OpenPonk-PetriNets/OPPetriNetArcControllerTest.class.st
index 9810975..b985f5e 100644
--- a/repository/OpenPonk-PetriNets/OPPetriNetArcControllerTest.class.st
+++ b/repository/OpenPonk-PetriNets/OPPetriNetArcControllerTest.class.st
@@ -41,6 +41,6 @@ OPPetriNetArcControllerTest >> testFigureRefresh [
 	label := controller diagramElement ownedElements first.
 	self assert: label roassalShape text equals: ''.
 	controller model name: 'new name'.
-	controller diagramElement modelChanged.
+	controller modelChanged.
 	self assert: label roassalShape text equals: 'new name'
 ]
diff --git a/repository/OpenPonk-PetriNets/OPPetriNetNodeController.class.st b/repository/OpenPonk-PetriNets/OPPetriNetNodeController.class.st
index 76d0084..fbfc573 100644
--- a/repository/OpenPonk-PetriNets/OPPetriNetNodeController.class.st
+++ b/repository/OpenPonk-PetriNets/OPPetriNetNodeController.class.st
@@ -25,9 +25,9 @@ OPPetriNetNodeController >> buildEditorForm: aForm [
 
 	(aForm addText: 'Name')
 		text: self model name;
-		whenTextChangedDo: [ :newValue | 
+		whenTextChangedDo: [ :newValue |
 			self model name: newValue asString.
-			self diagramElement modelChanged ]
+			self modelChanged ]
 ]
 
 { #category : 'testing' }
diff --git a/repository/OpenPonk-PetriNets/OPPetriNetNodeControllerTest.class.st b/repository/OpenPonk-PetriNets/OPPetriNetNodeControllerTest.class.st
index 4e74ea3..3cc1fc6 100644
--- a/repository/OpenPonk-PetriNets/OPPetriNetNodeControllerTest.class.st
+++ b/repository/OpenPonk-PetriNets/OPPetriNetNodeControllerTest.class.st
@@ -41,7 +41,7 @@ OPPetriNetNodeControllerTest >> testFigureRefresh [
 		assert: (controller roassalShape propertyAt: #RSLabeled) text
 		equals: ''.
 	controller model name: 'new name'.
-	controller diagramElement modelChanged.
+	controller modelChanged.
 	text := (controller roassalShape propertyAt: #RSLabeled) text.
 	self assert:
 		((text last: 8) = 'new name' or: [ (text first: 8) = 'new name' ])
diff --git a/repository/OpenPonk-PetriNets/OPPetriNetNormalArcControllerTest.class.st b/repository/OpenPonk-PetriNets/OPPetriNetNormalArcControllerTest.class.st
index d15390c..b6d4713 100644
--- a/repository/OpenPonk-PetriNets/OPPetriNetNormalArcControllerTest.class.st
+++ b/repository/OpenPonk-PetriNets/OPPetriNetNormalArcControllerTest.class.st
@@ -38,6 +38,6 @@ OPPetriNetNormalArcControllerTest >> testFigureRefresh [
 	label := controller diagramElement ownedElements second.
 	self assert: label roassalShape text equals: ''.
 	controller model weight: 10.
-	controller diagramElement modelChanged.
+	controller modelChanged.
 	self assert: (label roassalShape text last: 2) equals: '10'
 ]
diff --git a/repository/OpenPonk-PetriNets/OPPetriNetWeightedArcController.class.st b/repository/OpenPonk-PetriNets/OPPetriNetWeightedArcController.class.st
index 9c50ac9..e4e3fb6 100644
--- a/repository/OpenPonk-PetriNets/OPPetriNetWeightedArcController.class.st
+++ b/repository/OpenPonk-PetriNets/OPPetriNetWeightedArcController.class.st
@@ -12,7 +12,7 @@ OPPetriNetWeightedArcController >> buildEditorForm: aForm [
 	super buildEditorForm: aForm.
 	(aForm addTextInput: 'Weight')
 		text: self model weight asString;
-		whenTextChangedDo: [ :newValue | 
+		whenTextChangedDo: [ :newValue |
 			self model weight: (newValue asString asInteger ifNil: [ 1 ]).
-			self diagramElement modelChanged ]
+			self modelChanged ]
 ]