--- a/UIObjectView.st	Mon Oct 20 16:42:56 2008 +0200
+++ b/UIObjectView.st	Mon Oct 20 16:43:47 2008 +0200
@@ -1289,7 +1289,7 @@
 !
 
 selectNextUpInHierarchy
-    self halt.
+    self halt:#ca.
 !
 
 selection:newSelection
@@ -2699,7 +2699,7 @@
 !
 
 on:aPainter
-    self halt.
+    self halt:#ca.
     self initializeFor:aPainter
 ! !