--- a/HierarchicalList.st	Sat Aug 13 12:41:05 2016 +0200
+++ b/HierarchicalList.st	Sat Aug 13 12:41:38 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 List subclass:#HierarchicalList
 	instanceVariableNames:'recursionLock root showRoot application monitoringTask
 		monitoringTaskDelay additionalItemsToMonitorSemaphore'
@@ -173,19 +177,20 @@
 
 !
 
-root:aRoot
+root:aRootItem
     "set the root item
     "
     |children|
 
     self stopMonitoringTask.
 
+    "/ inlink the previous root
     root notNil ifTrue:[
         root parent:nil.
         root := nil.
     ].
 
-    (root := aRoot) isEmptyOrNil ifTrue:[
+    (root := aRootItem) isEmptyOrNil ifTrue:[
         self removeAll.
     ] ifFalse:[
         self showRoot ifFalse:[root expand].
@@ -387,10 +392,10 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.26 2014-11-19 21:46:22 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.26 2014-11-19 21:46:22 cg Exp $'
+    ^ '$Header$'
 ! !