--- a/HierarchicalList.st	Wed Sep 06 18:51:40 2006 +0200
+++ b/HierarchicalList.st	Tue Sep 12 18:26:43 2006 +0200
@@ -188,7 +188,7 @@
         super removeAll.
     ].
 
-    (root := aRoot) notNil ifTrue:[
+    (root := aRoot) notEmptyOrNil ifTrue:[
         self showRoot ifFalse:[root expand].
 
         root parent:self.
@@ -198,6 +198,8 @@
         super addAll:children beforeIndex:1
     ].
     self startMonitoringTask.
+
+    "Modified: / 12-09-2006 / 18:22:42 / cg"
 ! !
 
 !HierarchicalList methodsFor:'private'!
@@ -383,5 +385,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.22 2006-01-31 22:10:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.23 2006-09-12 16:26:43 cg Exp $'
 ! !