--- a/DirectoryTreeBrowser.st	Mon Mar 06 09:44:15 2006 +0100
+++ b/DirectoryTreeBrowser.st	Mon Mar 06 09:44:24 2006 +0100
@@ -1061,17 +1061,18 @@
 !
 
 selectedFilesIncludesNonRootDirectory
-
-    | directories|
+    ^ self selectedDirectories contains:[:aDir | (aDir asString) ~= (self rootHolder value)].
 
-    directories := self selectedDirectories.
-    directories isEmpty ifTrue:[^ false].
-    directories do:[:aDir|
-        (aDir asString) ~= (self rootHolder value) ifTrue:[
-            ^ true
-        ]
-    ].
-    ^ false
+"/    |directories|
+"/
+"/    directories := self selectedDirectories.
+"/    directories isEmpty ifTrue:[^ false].
+"/    directories do:[:aDir|
+"/        (aDir asString) ~= (self rootHolder value) ifTrue:[
+"/            ^ true
+"/        ]
+"/    ].
+"/    ^ false
 ! !
 
 !DirectoryTreeBrowser methodsFor:'selection'!
@@ -1329,5 +1330,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.97 2006-02-03 11:45:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.98 2006-03-06 08:44:24 cg Exp $'
 ! !