--- a/Parser.st	Fri Aug 30 14:08:02 2013 +0200
+++ b/Parser.st	Sat Aug 31 00:55:26 2013 +0200
@@ -3224,7 +3224,7 @@
     ].
 
     suggestedNames := self findBestSelectorsFor:aSelectorString in:aClassOrNil.
-    suggestedNames notNil ifTrue:[
+    suggestedNames notEmptyOrNil ifTrue:[
         newSelector := self askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:aSelectorString.
         newSelector isNil ifTrue:[AbortSignal raise "^ aSelectorString"].
     ] ifFalse:[
@@ -11111,7 +11111,7 @@
     |suggestedNames newSelector|
 
     suggestedNames := aCompiler findBestSelectorsFor:selector in:receiverClass.
-    suggestedNames isNil ifTrue:[
+    suggestedNames isEmptyOrNil ifTrue:[
         self information:'no good correction found'.
         ^ nil
     ].
@@ -11715,11 +11715,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.788 2013-08-30 12:08:02 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.789 2013-08-30 22:55:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.788 2013-08-30 12:08:02 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.789 2013-08-30 22:55:26 cg Exp $'
 !
 
 version_SVN