--- a/AbstractFileBrowser.st	Sun Oct 11 10:53:51 2009 +0200
+++ b/AbstractFileBrowser.st	Mon Oct 12 09:48:23 2009 +0200
@@ -3717,7 +3717,7 @@
                 dropObject isDirectory ifTrue:[
                     fn recursiveCopyTo:destDir
                 ] ifFalse:[
-                    fn copyTo:destDir
+                    fn copyTo:(destDir / fn baseName )
                 ]
             ]
         ].
@@ -7850,9 +7850,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.416 2009-10-06 10:49:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.417 2009-10-12 07:48:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.416 2009-10-06 10:49:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.417 2009-10-12 07:48:23 cg Exp $'
 ! !