--- a/SelectionInTree.st	Fri Jan 22 20:40:37 2016 +0100
+++ b/SelectionInTree.st	Fri Jan 22 20:50:50 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Model subclass:#SelectionInTree
 	instanceVariableNames:'root list selection showRoot contentsAction labelAction
 		childrenAction iconAction indicatorList indicatorTask accessLock'
@@ -726,8 +728,9 @@
 selectNodes:aCollectionOfNodes
     | indices|
 
-    indices := aCollectionOfNodes collect:[:aNode | self indexOf:aNode].
-    indices := indices select:[:idx | idx ~~ 0].
+    indices := aCollectionOfNodes 
+                    collect:[:aNode | self indexOf:aNode]
+                    thenSelect:[:idx | idx ~~ 0].
     indices sort.
     self selectionIndex:indices
 
@@ -939,10 +942,10 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $'
+    ^ '$Header$'
 ! !