--- a/SelectionInTreeView.st	Mon Mar 30 14:05:40 1998 +0200
+++ b/SelectionInTreeView.st	Mon Mar 30 14:07:50 1998 +0200
@@ -931,7 +931,7 @@
 
         [(idx := idx + inc) ~~ end] whileTrue:[
             node := listOfNodes at:idx.
-            node isDirectory ifTrue:[
+            node hasChildren ifTrue:[
                 ^ self key:key select:idx x:x y:y
             ]
         ].
@@ -1750,5 +1750,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.50 1998-03-09 16:08:44 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.51 1998-03-30 12:07:50 ca Exp $'
 ! !