diff --git a/repository/OpenPonk-Model/OPModelObject.class.st b/repository/OpenPonk-Model/OPModelObject.class.st
index dcd2966..ec05aed 100644
--- a/repository/OpenPonk-Model/OPModelObject.class.st
+++ b/repository/OpenPonk-Model/OPModelObject.class.st
@@ -44,6 +44,14 @@ OPModelObject >> addedTo: anObject [
 	^ anObject
 ]
 
+{ #category : #accessing }
+OPModelObject >> allElements [
+	"should return all elements recursively (incl. sub-elements)"
+
+	^ self elements asSet flatCollect: [ :each |
+		  (Set with: each) , each allElements ]
+]
+
 { #category : #accessing }
 OPModelObject >> belongsTo [
 	"FAMIX compatibility"