diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 95b8356..e78268b 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -845,7 +845,7 @@ GrafoscopioNode >> parent [
 { #category : #accessing }
 GrafoscopioNode >> parent: aNode [
 	"A parent is a node that has the current node in its children"
-	aNode addNode: self.
+	parent := aNode.
 ]
 
 { #category : #'add/remove nodes' }