--- a/Tools__CompilerWarningToDoListEntry.st	Tue Mar 13 18:13:02 2007 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Tue Mar 13 18:13:43 2007 +0100
@@ -156,6 +156,25 @@
 
 !CompilerWarningToDoListEntry methodsFor:'validation'!
 
+checkByReparsing
+    |stillValid|
+
+    stillValid := false.
+    Tools::ToDoNotification handle:[:ex |
+        stillValid := (ex parameter sameAs:self).
+        ex proceed.
+    ] do:[
+        Compiler 
+            compile:(self problemClass compiledMethodAt:selector) source 
+            forClass:(self problemClass)
+            install:false.
+    ].
+    ^ stillValid.
+
+    "Created: / 21-10-2006 / 21:31:27 / cg"
+    "Modified: / 20-11-2006 / 15:34:29 / cg"
+!
+
 checkIfClassIsStillValid
     className notNil ifTrue:[
         (Smalltalk classNamed:className) isNil ifTrue:[^ false].
@@ -179,8 +198,9 @@
 checkIfStillValid
     self checkIfClassIsStillValid ifFalse:[^ false].
     self checkIfSelectorIsStillValid ifFalse:[^ false].
+
     checkAction isNil ifTrue:[
-        self halt.
+        ^ self checkByReparsing
     ].
 
     ^ (checkAction value:self)
@@ -192,5 +212,5 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.4 2007-02-10 16:14:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.5 2007-03-13 17:13:43 cg Exp $'
 ! !