--- a/Tools_HierarchicalProjectList.st	Thu Aug 17 16:10:34 2006 +0200
+++ b/Tools_HierarchicalProjectList.st	Thu Aug 17 16:13:10 2006 +0200
@@ -295,24 +295,27 @@
     itemsToSelect := OrderedCollection new.
 
     (self selectedProjects value ? #()) do:[:eachSelectedProject |
-	|item child|
-
-	item := hierarchicalProjectList root.
+        |item child|
 
-	(eachSelectedProject asCollectionOfSubstringsSeparatedByAny:':/') do:[:part |
-	    item expand.
-	    child := item detect:[:child | child label = part] ifNone:nil.
-	    child notNil ifTrue:[
-		item := child.
-	    ].
-	].
-	itemsToSelect add:child.
+        item := hierarchicalProjectList root.
+        item notNil ifTrue:[
+            (eachSelectedProject asCollectionOfSubstringsSeparatedByAny:':/') do:[:part |
+                item expand.
+                child := item detect:[:child | child label = part] ifNone:nil.
+                child notNil ifTrue:[
+                    item := child.
+                ].
+            ].
+            itemsToSelect add:child.
+        ].
     ].
     oldSelection := hierarchicalProjectSelection value.
     newSelection := itemsToSelect collect:[:eachItem | hierarchicalProjectList identityIndexOf:eachItem].
     oldSelection ~= newSelection ifTrue:[
-	hierarchicalProjectSelection value:newSelection.
+        hierarchicalProjectSelection value:newSelection.
     ].
+
+    "Modified: / 17-08-2006 / 09:56:32 / cg"
 ! !
 
 !HierarchicalProjectList methodsFor:'change & update'!
@@ -515,5 +518,5 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.7 2006-03-17 14:18:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.8 2006-08-17 14:13:10 cg Exp $'
 ! !