--- a/HierarchicalListView.st	Wed Jan 11 16:46:16 2006 +0100
+++ b/HierarchicalListView.st	Tue Jan 17 13:17:56 2006 +0100
@@ -482,7 +482,7 @@
     "
     |image|
 
-    (aDictionary isNil or:[aDictionary isEmpty]) ifTrue:[
+    (aDictionary isEmptyOrNil) ifTrue:[
         ^ self
     ].
 
@@ -1641,5 +1641,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.98 2005-12-15 21:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.99 2006-01-17 12:17:56 cg Exp $'
 ! !