--- a/Tools__BrowserList.st	Thu Nov 26 17:20:17 2015 +0100
+++ b/Tools__BrowserList.st	Thu Nov 26 17:21:11 2015 +0100
@@ -899,6 +899,7 @@
 !
 
 update:something with:aParameter from:changedObject
+    |window|
 
     changedObject == environmentHolder ifTrue:[
         self environmentChanged.
@@ -940,10 +941,10 @@
         "/ self invalidateList. "/  setListValid:false.
     ].
 
-    self window isNil ifTrue:[
+    ((window := self window) notNil and:[window isOpen]) ifFalse:[
         ^ self
     ].
-    self window sensor userEventCount > 100 ifTrue:[
+    window sensor userEventCount > 100 ifTrue:[
         listValid ifTrue:[
             "/ enqueue a full update.
             self setListValid:false.
@@ -2112,10 +2113,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.86 2015-05-23 12:47:29 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.86 2015-05-23 12:47:29 cg Exp $'
+    ^ '$Header$'
 ! !