--- a/SelectionInTree.st	Sat Jul 13 22:36:45 2013 +0200
+++ b/SelectionInTree.st	Sat Jul 13 23:06:39 2013 +0200
@@ -771,8 +771,7 @@
             coll add:node
         ]
     ].
-    ^ coll notEmpty ifTrue:[coll] ifFalse:[nil]
-        
+    ^ coll asNilIfEmpty
 !
 
 selectedNodesDo:aOneArgBlock
@@ -940,9 +939,10 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.35 2010-02-01 12:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.35 2010-02-01 12:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.36 2013-07-13 21:06:39 cg Exp $'
 ! !
+