--- a/AbstractDirectoryBrowser.st	Fri Dec 18 12:20:06 2009 +0100
+++ b/AbstractDirectoryBrowser.st	Tue Dec 22 11:28:59 2009 +0100
@@ -96,12 +96,12 @@
 "/    self directory isNil ifTrue:[^ self].
     dropObjects := aContext dropObjects.
 
-    dropObjects do:[:aObject| 
+    dropObjects do:[:anObject| 
         |checkObject checkObjectString|
 
-        aObject isFileObject ifFalse:[^ self].
+        anObject isFileObject ifFalse:[^ self].
 
-        checkObject := aObject theObject.
+        checkObject := anObject theObject.
         checkObject isFilename ifFalse:[^ self].
         (aContext dropSource argument == #archivApplication) ifFalse:[
             checkObject isSpecialFile ifTrue:[^ self].
@@ -112,8 +112,8 @@
 !
 
 dropLeave:aDropContext 
-    "send the last time, when leaving the widget
-    "
+    "called, when leaving the widget"
+
     inDropMode ifFalse:[ ^ self ].
 
     self dropTargetItemChangedTo:nil in:aDropContext.
@@ -209,5 +209,9 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.23 2007-01-12 17:42:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.24 2009-12-22 10:28:59 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.24 2009-12-22 10:28:59 cg Exp $'
 ! !