--- a/Tools__BrowserList.st	Wed Nov 19 23:04:26 2014 +0100
+++ b/Tools__BrowserList.st	Thu Nov 20 00:21:54 2014 +0100
@@ -910,6 +910,17 @@
             ^ self
         ].
     ].
+
+    self window isNil ifTrue:[^ self].
+    self window sensor userEventCount > 100 ifTrue:[
+        listValid ifTrue:[
+            "/ enqueue a full update.
+            self setListValid:false.
+            self enqueueMessage:#updateList for:self arguments:nil.
+        ].
+        ^ self
+    ].
+
     self enqueueDelayedUpdate:something with:aParameter from:changedObject.
 
     "Created: / 05-02-2000 / 13:42:07 / cg"
@@ -2068,10 +2079,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.71 2014-11-19 21:39:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.72 2014-11-19 23:21:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.71 2014-11-19 21:39:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.72 2014-11-19 23:21:54 cg Exp $'
 ! !