--- a/UIObjectView.st	Thu Jul 25 18:06:35 2002 +0200
+++ b/UIObjectView.st	Fri Aug 02 13:59:51 2002 +0200
@@ -549,12 +549,16 @@
     "catch expose events for components, and redraw its handles after
      the redraw when this happens
     "
-    (anEvent type == #damage and:[self isSelected:(anEvent view)]) ifTrue:[
-	self showSelected:(anEvent view)
+
+    |evView|
+
+    anEvent isDamage ifTrue:[
+        evView := anEvent view.
+        (self isSelected:evView) ifTrue:[
+            self showSelected:evView
+        ]
     ].
     ^ false.
-
-
 !
 
 redrawX:nx y:ny width:nw height:nh