--- a/ClassBuilder.st	Wed Nov 22 13:24:37 2006 +0100
+++ b/ClassBuilder.st	Wed Nov 22 15:54:05 2006 +0100
@@ -1985,7 +1985,8 @@
             (superInstVars includes:nm) ifTrue:[
                 msg := 'instVar "%1" is already defined in a superclass of "%2"' bindWith:nm allBold with:newName allBold.
                 "/ experimental
-                Tools::CompilerWarningToDoListEntry notNil ifTrue:[
+                (Tools::CompilerWarningToDoListEntry notNil
+                and:[ Tools::CompilerWarningToDoListEntry isLoaded ]) ifTrue:[
                     self todo:((Tools::CompilerWarningToDoListEntry new
                                 severity:(Tools::ToDoList errorSeverity)
                                 priority:(Tools::ToDoList highPriority) 
@@ -2031,7 +2032,8 @@
                 (vars includes:nm) ifTrue:[
                     msg := 'subclass "%1" also defines an instVar named "%2"' bindWith:sub name allBold with:nm allBold.
                     "/ experimental
-                    Tools::CompilerWarningToDoListEntry notNil ifTrue:[
+                    (Tools::CompilerWarningToDoListEntry notNil
+                    and:[ Tools::CompilerWarningToDoListEntry isLoaded ]) ifTrue:[
                         self todo:((Tools::CompilerWarningToDoListEntry new
                                     severity:(Tools::ToDoList errorSeverity)
                                     priority:(Tools::ToDoList highPriority) 
@@ -2136,5 +2138,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.65 2006-11-10 16:24:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.66 2006-11-22 14:54:05 sr Exp $'
 ! !