diff --git a/repository/OpenPonk-FSM/OPFsmController.class.st b/repository/OpenPonk-FSM/OPFsmController.class.st
index 5d13d2c..37ca99c 100644
--- a/repository/OpenPonk-FSM/OPFsmController.class.st
+++ b/repository/OpenPonk-FSM/OPFsmController.class.st
@@ -18,9 +18,9 @@ OPFsmController >> applyLayout: anAlgorithm [
 	figures := self controllers
 		           select: [ :each | each isKindOf: OPFsmVertexController ]
 		           thenCollect: #figure.
-	edges := (figures flatCollect: #connectedLines) reject: [ :each | 
+	edges := (figures flatCollect: #connectedLines) reject: [ :each |
 		         each from = each to ].
-	anAlgorithm on: figures edges: edges
+	anAlgorithm on: figures asGroup edges: edges asGroup
 ]
 
 { #category : #testing }