--- a/AbstractDirectoryBrowser.st	Tue Apr 01 13:03:51 2003 +0200
+++ b/AbstractDirectoryBrowser.st	Tue Apr 01 16:46:26 2003 +0200
@@ -49,9 +49,10 @@
 doDrop:aContext 
     |col destinationPath receiver didDrop|
 
+    destinationPath := self dropDestinationPath.
+
     self dropLeave:aContext.
 
-    destinationPath := self dropDestinationPath.
     destinationPath ifNil:[^ self].
 
     aContext dropSource argument == #archivApplication ifTrue:[
@@ -182,5 +183,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.3 2003-03-30 13:04:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.4 2003-04-01 14:46:26 cg Exp $'
 ! !