From 20bb08e412ba934aafaaee70d2e5e3ec4386c21c Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 8 Jan 2017 13:23:25 +0000
Subject: [PATCH] Fixing
 http://mutabit.com/repos.fossil/grafoscopio/tktview?name=ffb08a5973 as
 suggested by Udo.

---
 repository/Grafoscopio/GrafoscopioNode.class.st | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 570fea2..9789f8b 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -126,14 +126,12 @@ GrafoscopioNode >> ancestors [
 	
 	currentNode := self.
 	ancestors := OrderedCollection new.
-	[currentNode level > 0] 
+	[ currentNode parent notNil and: [ currentNode level > 0 ] ]
 		whileTrue: [ 
 			ancestors add: currentNode parent.
-			currentNode := currentNode parent.].
+			currentNode := currentNode parent].
 	ancestors := ancestors reversed.
-   ^ ancestors 	
-	
-
+   ^ ancestors 
 ]
 
 { #category : #accessing }