--- a/ObjectView.st	Fri Oct 27 14:06:31 2006 +0200
+++ b/ObjectView.st	Fri Oct 27 14:32:02 2006 +0200
@@ -1083,7 +1083,7 @@
         ]
     ]
 
-    "Modified: / 4.7.1999 / 18:58:08 / cg"
+    "Modified: / 27-10-2006 / 14:32:12 / cg"
 !
 
 startRootObjectMove:something at:aPoint
@@ -1107,7 +1107,11 @@
 
     self invertDragRectangle.
     self cursor:oldCursor.
-    self selectAllIn:dragObject
+    self selectAllIn:dragObject.
+
+    releaseAction := nil.
+
+    "Modified: / 27-10-2006 / 14:21:11 / cg"
 !
 
 invertDragRectangle
@@ -2894,9 +2898,10 @@
 
     selection isCollection ifFalse:[
         selection isNil ifTrue:[
-            ^ self select:anObject
-        ].
-        selection := OrderedCollection with:selection
+            selection := OrderedCollection new
+        ] ifFalse:[
+            selection := OrderedCollection with:selection
+        ]
     ].
 
     (selection includes:anObject) ifFalse:[
@@ -2911,7 +2916,7 @@
         self changed:#selection with:selection.
     ].
 
-    "Modified: / 4.7.1999 / 15:22:13 / cg"
+    "Modified: / 27-10-2006 / 14:16:04 / cg"
 !
 
 hideSelection
@@ -3426,5 +3431,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.122 2006-10-27 12:06:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.123 2006-10-27 12:32:02 cg Exp $'
 ! !