--- a/extensions.st	Mon Feb 05 10:53:29 2007 +0100
+++ b/extensions.st	Mon Feb 05 10:59:15 2007 +0100
@@ -297,14 +297,14 @@
     |brwsr|
 
     Transcript showCR:aToDoListEntry message.
-    Tools::ToDoListBrowser notNil ifTrue:[
+    (Tools::ToDoListBrowser notNil and:[Tools::ToDoListBrowser isLoaded]) ifTrue:[
         (brwsr := Tools::ToDoListBrowser current) notNil ifTrue:[
             brwsr addEntry:aToDoListEntry
         ].
     ].
 
     "Created: / 21-10-2006 / 20:37:13 / cg"
-    "Modified: / 23-10-2006 / 10:54:06 / cg"
+    "Modified: / 05-02-2007 / 10:59:22 / cg"
 ! !
 
 !OrderedCollection methodsFor:'inspecting'!