--- a/Parser.st	Thu Jan 23 15:41:18 2014 +0100
+++ b/Parser.st	Thu Jan 23 17:12:02 2014 +0100
@@ -3033,7 +3033,7 @@
      return #Error if there was no correction
      or a ParseNode as returned by variable"
 
-    |correctIt suggestedNames newSelector className classToGenerateCode pos1 pos2 fixes 
+    |correctIt suggestedNames newSelector pos1 pos2 fixes 
      positionOfPeriod|
 
     pos1 := posVector first start.
@@ -3209,7 +3209,7 @@
     suggestedNames := self findBestSelectorsFor:aSelectorString in:aClassOrNil.
     suggestedNames notEmptyOrNil ifTrue:[
         newSelector := self askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:aSelectorString.
-        newSelector isNil ifTrue:[AbortSignal raise "^ aSelectorString"].
+        newSelector isNil ifTrue:[AbortOperationRequest raise "^ aSelectorString"].
     ] ifFalse:[
         self information:'no good correction found'.
         ^ aSelectorString
@@ -11180,7 +11180,7 @@
         ^ nil
     ].
     newSelector := aCompiler askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:selector.
-    newSelector isNil ifTrue:[AbortSignal raise "^ aSelectorString"].
+    newSelector isNil ifTrue:[AbortOperationRequest raise "^ aSelectorString"].
 
     newSelector = selector ifTrue:[^ nil].
 
@@ -11779,11 +11779,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.799 2013-12-07 15:01:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.800 2014-01-23 16:12:02 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.799 2013-12-07 15:01:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.800 2014-01-23 16:12:02 stefan Exp $'
 !
 
 version_SVN