--- a/Tools__CompilerWarningToDoListEntry.st	Mon Nov 20 22:29:36 2006 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Mon Nov 20 22:32:32 2006 +0100
@@ -10,6 +10,14 @@
 !
 
 
+!CompilerWarningToDoListEntry class methodsFor:'instance creation'!
+
+new
+    ^ self basicNew initialize
+
+    "Created: / 20-11-2006 / 14:58:52 / cg"
+! !
+
 !CompilerWarningToDoListEntry methodsFor:'accessing'!
 
 className
@@ -143,15 +151,18 @@
 checkIfStillValid
     self checkIfClassIsStillValid ifFalse:[^ false].
     self checkIfSelectorIsStillValid ifFalse:[^ false].
+    checkAction isNil ifTrue:[
+        self halt.
+    ].
 
     ^ (checkAction value:self)
 
     "Created: / 21-10-2006 / 21:31:27 / cg"
-    "Modified: / 21-10-2006 / 23:10:33 / cg"
+    "Modified: / 20-11-2006 / 15:34:29 / cg"
 ! !
 
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.2 2006-11-13 12:20:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.3 2006-11-20 21:32:32 cg Exp $'
 ! !