--- a/DoWhatIMeanSupport.st	Wed Mar 07 18:16:48 2007 +0100
+++ b/DoWhatIMeanSupport.st	Thu Mar 08 18:30:38 2007 +0100
@@ -251,7 +251,7 @@
     ] ifFalse:[
 
         best := matches longestCommonPrefix.
-        best size == 0 ifTrue:[
+        best size < aPartialClassName size "best size == 0" ifTrue:[
             best := matchedNamesWithoutPrefix longestCommonPrefix.
         ].
         best size == 0 ifTrue:[
@@ -836,5 +836,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.21 2006-11-07 13:00:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.22 2007-03-08 17:30:38 cg Exp $'
 ! !