--- a/DirectoryTreeBrowser.st	Fri Aug 02 18:23:23 2013 +0200
+++ b/DirectoryTreeBrowser.st	Sat Aug 03 15:45:49 2013 +0200
@@ -981,7 +981,7 @@
         anItem isDirectory ifTrue:[
             anItem makeIconGray:true.
             anItem changed:#icon.
-            (anItem notNil and:[anItem isWritableDirectory]) ifTrue:[
+            (anItem notNil and:[anItem fileName isWritableDirectory]) ifTrue:[
                 self 
                     setupAutoExpandItemTimedBlock:
                         [
@@ -1394,10 +1394,10 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.125 2013-07-29 14:08:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.126 2013-08-03 13:45:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.125 2013-07-29 14:08:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.126 2013-08-03 13:45:49 cg Exp $'
 ! !