--- a/DirectoryTreeBrowser.st	Sun Aug 08 14:42:03 2010 +0200
+++ b/DirectoryTreeBrowser.st	Sun Aug 08 14:42:31 2010 +0200
@@ -968,7 +968,7 @@
     self fileList draggedItem:anItem.
 
     aDropContext contentsWillChange.
-    current ifNotNil:[
+    current notNil ifTrue:[
         current isDirectory ifTrue:[
             self removeExpandItemTimedBlock.
             current makeIconGray:false.
@@ -976,7 +976,7 @@
         ]
     ].
 
-    anItem ifNotNil:[
+    anItem notNil ifTrue:[
         anItem isDirectory ifTrue:[
             anItem makeIconGray:true.
             anItem changed:#icon.
@@ -992,6 +992,8 @@
     browser shown ifTrue:[
         browser repairDamage.
     ].
+
+    "Modified: / 08-08-2010 / 14:42:21 / cg"
 !
 
 expandForDrop:item with:aDropContext
@@ -1378,9 +1380,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.114 2010-02-02 13:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.115 2010-08-08 12:42:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.114 2010-02-02 13:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.115 2010-08-08 12:42:31 cg Exp $'
 ! !