--- a/RegressionTests__CompilerTest.st	Tue Jul 05 13:37:03 2011 +0200
+++ b/RegressionTests__CompilerTest.st	Tue Jul 05 18:22:37 2011 +0200
@@ -265,6 +265,14 @@
     "
 ! !
 
+!CompilerTest methodsFor:'cleanup'!
+
+tearDown
+    self class removeSelector:#foo:.
+
+    "Created: / 05-07-2011 / 18:20:08 / cg"
+! !
+
 !CompilerTest methodsFor:'helpers'!
 
 callEnsureWith2Returns
@@ -1985,7 +1993,7 @@
 '
                         forClass:self class.
                 ]
-            raise:Parser::ParseError.
+            raise:Parser parseErrorSignal
     ] ensure:[
         ParserFlags warnAboutPossibleSTCCompilationProblems:w.
         ParserFlags allowPossibleSTCCompilationProblems:a.
@@ -2004,7 +2012,7 @@
         ParserFlags warnAboutPossibleSTCCompilationProblems:false.
         ParserFlags allowPossibleSTCCompilationProblems:true.
 
-        setOfSignals := SignalSet with:(Parser::ParseError) with:(Parser::ParseWarning).
+        setOfSignals := SignalSet with:(Parser parseErrorSignal) with:(Parser parseWarningSignal).
         self 
             shouldnt:
                 [
@@ -2050,7 +2058,7 @@
 test_good_return2
     |setOfPossibleExceptions|
 
-    setOfPossibleExceptions := SignalSet with:(Parser::ParseWarning) with:(Parser::ParseError).
+    setOfPossibleExceptions := SignalSet with:(Parser parseWarningSignal) with:(Parser parseErrorSignal).
     self 
         shouldnt:
             [
@@ -2278,10 +2286,6 @@
 
 !CompilerTest class methodsFor:'documentation'!
 
-version
-    ^ '$Header$'
-!
-
 version_CVS
     ^ '$Header$'
 ! !