diff --git a/repository/OpenPonk-BPMN/OPBPMNNodeModel.class.st b/repository/OpenPonk-BPMN/OPBPMNNodeModel.class.st
index 7076dbd..198483c 100644
--- a/repository/OpenPonk-BPMN/OPBPMNNodeModel.class.st
+++ b/repository/OpenPonk-BPMN/OPBPMNNodeModel.class.st
@@ -30,6 +30,13 @@ OPBPMNNodeModel >> addFlow: aFlow [
 		ifFalse: [ self changed ]
 ]
 
+{ #category : 'accessing' }
+OPBPMNNodeModel >> allElements [
+
+	^ super allElements , self flows
+	  , (self flows flatCollect: [ :each | each allElements ])
+]
+
 { #category : 'accessing' }
 OPBPMNNodeModel >> connected [
 	owner ifNil: [ ^ #() ].