--- a/UIObjectView.st	Mon Dec 03 10:57:40 2007 +0100
+++ b/UIObjectView.st	Mon Dec 03 12:25:20 2007 +0100
@@ -771,17 +771,28 @@
 
 endObjectMove
     "cleanup after object(s) move
+     send expose to each view - workaround....
     "
-    movedObject notNil ifTrue:[
-	self invertOutlineOf:movedObject.
-
-	movedObject size == 1 ifTrue:[
-	    movedObject := movedObject first
-	].
-	self setSelection:movedObject withRedraw:true.
-	movedObject := nil.
-	self setDefaultActions.
-	self layoutChanged.
+    |newSel|
+
+    movedObject isNil ifTrue:[^ self].
+
+    movedObject size == 1 ifTrue:[ newSel := movedObject first ]
+                         ifFalse:[ newSel := movedObject ].
+    movedObject := nil.
+
+    self withSelectionHiddenDo:[
+        self setSelection:newSel withRedraw:false.
+
+        self allSubViewsDo:[:v|
+            v shown ifTrue:[
+                v fill:v viewBackground.
+                v exposeX:0 y:0 width:v width height:v height.
+            ].
+        ].
+
+        self setDefaultActions.
+        self layoutChanged.
     ].
 !