--- a/ListView.st	Thu Mar 12 19:29:05 1998 +0100
+++ b/ListView.st	Fri Mar 20 17:28:20 1998 +0100
@@ -3114,7 +3114,7 @@
         ^ self originChanged:(x @ y )
     ].
 
-    (self sensor hasExposeEventFor:self) ifTrue:[               "/ outstanding expose events
+    (self sensor notNil and: [self sensor hasExposeEventFor:self]) ifTrue:[               "/ outstanding expose events
         self invalidate.                                        "/ redraw all
         ^ self originChanged:(x @ y )
     ].
@@ -3653,5 +3653,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.159 1998-03-12 18:29:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.160 1998-03-20 16:28:20 tz Exp $'
 ! !