--- a/Tools__ToDoListBrowser.st	Thu Apr 03 11:12:51 2008 +0200
+++ b/Tools__ToDoListBrowser.st	Thu Apr 03 14:52:47 2008 +0200
@@ -372,9 +372,16 @@
 
 !ToDoListBrowser methodsFor:'change & update'!
 
+delayedUpdate:something with:aParameter from:changedObject
+    changedObject == toDoList ifTrue:[
+        self updateShownToDoList.
+        ^ self
+    ].
+!
+
 update:something with:aParameter from:changedObject
     changedObject == toDoList ifTrue:[
-        self updateShownToDoList.
+        self enqueueDelayedUpdate:something with:aParameter from:changedObject.
         ^ self
     ].
     ^ super update:something with:aParameter from:changedObject
@@ -600,5 +607,5 @@
 !ToDoListBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.12 2008-03-03 09:39:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.13 2008-04-03 12:52:47 cg Exp $'
 ! !