--- a/Tools__HierarchicalProjectList.st	Wed Nov 19 22:40:29 2014 +0100
+++ b/Tools__HierarchicalProjectList.st	Wed Nov 19 22:41:12 2014 +0100
@@ -268,16 +268,16 @@
     |anchor |
 
     hierarchicalProjectList isNil ifTrue:[
-	hierarchicalProjectList := HierarchicalList new.
-	hierarchicalProjectList showRoot:false.
+        hierarchicalProjectList := HierarchicalList new.
+        hierarchicalProjectList showRoot:false.
 
-	(self slaveMode value ~~ true) ifTrue:[
-	    anchor := self generateHierarchicalProjectTree.
-	    hierarchicalProjectList root:anchor.
-	    listValid := true
-	] ifFalse:[
-	    listValid := false
-	]
+        (self slaveMode value ~~ true) ifTrue:[
+            anchor := self generateHierarchicalProjectTree.
+            hierarchicalProjectList root:anchor.
+            self setListValid:true.
+        ] ifFalse:[
+            self setListValid:false
+        ]
     ].
     ^ hierarchicalProjectList
 !
@@ -520,10 +520,10 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalProjectList.st,v 1.15 2014-07-04 10:28:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalProjectList.st,v 1.16 2014-11-19 21:41:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalProjectList.st,v 1.15 2014-07-04 10:28:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalProjectList.st,v 1.16 2014-11-19 21:41:12 cg Exp $'
 ! !