--- a/ObjectView.st	Thu Oct 31 18:49:43 2002 +0100
+++ b/ObjectView.st	Fri Nov 01 00:25:54 2002 +0100
@@ -675,6 +675,8 @@
         inMySelf := true
     ].
 
+    dragObject isNil ifTrue:[^ self].
+
     dragOrigin := dragObject origin.
     inMySelf ifTrue:[
         "a simple line within myself"
@@ -710,6 +712,8 @@
 
     |dragger offs p1 p2|
 
+    dragObject isNil ifTrue:[^ self].
+
     p1 := dragObject origin.
     p2 := dragObject corner.
     rootMotion ifTrue:[
@@ -3253,5 +3257,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.92 2002-10-31 12:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.93 2002-10-31 23:25:54 cg Exp $'
 ! !