From 316dc90555eb20ce875e4a8cfe718f425db467b8 Mon Sep 17 00:00:00 2001
From: Eric Winger <ewinger@mexico.GEMTALK>
Date: Tue, 4 Sep 2018 17:23:23 -0700
Subject: [PATCH] had broken hierarchy tests

take into consideration that class list can be empty.
---
 sources/JadeiteProjectsBrowserPresenter.cls | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sources/JadeiteProjectsBrowserPresenter.cls b/sources/JadeiteProjectsBrowserPresenter.cls
index 99dc7ef8..30b3f14d 100644
--- a/sources/JadeiteProjectsBrowserPresenter.cls
+++ b/sources/JadeiteProjectsBrowserPresenter.cls
@@ -1330,7 +1330,11 @@ updateHierarchy
 	| service selection |
 	classHierarchyPresenter model: TreeModel new.
 	Cursor wait showWhile: 
-			[service := classListPresenter selectionOrNil ifNil: [RowanClassService new name: classListPresenter list first name].
+			[service := classListPresenter selectionOrNil
+						ifNil: 
+							[classListPresenter list isEmpty
+								ifTrue: [RowanClassService new name: 'Object']
+								ifFalse: [RowanClassService new name: classListPresenter list first name]].
 			service command: #classHierarchy.
 			self issueCommand: (Array with: service).
 			service name = 'Object'