--- a/DropContext.st	Fri Oct 13 18:24:00 2006 +0200
+++ b/DropContext.st	Fri Oct 13 18:24:04 2006 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#DropContext
@@ -261,11 +259,11 @@
 !DropContext methodsFor:'queries'!
 
 canDrop
-    "returns true if current dropTarget can drop draggable objects"
+    "returns true if the current dropTarget can drop the objects"
 
-    ^ dropTarget isNil 
-        ifTrue:[false]
-        ifFalse:[dropTarget canDrop:self]
+    ^ dropTarget notNil and:[dropTarget canDrop:self]
+
+    "Modified: / 13-10-2006 / 15:48:02 / cg"
 !
 
 clearHasDroppedFlagToSuppressFeedBack
@@ -297,5 +295,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.11 2006-01-24 16:52:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.12 2006-10-13 16:24:04 cg Exp $'
 ! !