--- a/UIObjectView.st	Tue Apr 08 01:38:44 1997 +0200
+++ b/UIObjectView.st	Tue Apr 08 20:16:59 1997 +0200
@@ -699,16 +699,22 @@
             (b notNil and:[b ~~ #view]) ifTrue:[
                 ^ self startResizeBorder:b of:aView.
             ]
+        ].
+
+        (self sensor ctrlDown and:[self canMove:aView]) ifFalse:[
+            aView := nil
         ]
     ].
 
-    (aView := self findObjectAt:aPoint) isNil ifTrue:[
-        ^ self unselect
-    ].
-
-    (self canMove:aView) ifFalse:[
-        super unselect.
-      ^ self select:aView
+    aView isNil ifTrue:[
+        (aView := self findObjectAt:aPoint) isNil ifTrue:[
+            ^ self unselect
+        ].
+
+        (self canMove:aView) ifFalse:[
+            super unselect.
+          ^ self select:aView
+        ]
     ].
 
     (self isSelected:aView) ifFalse:[