--- a/DoWhatIMeanSupport.st	Mon Dec 14 10:57:56 2009 +0100
+++ b/DoWhatIMeanSupport.st	Mon Dec 14 11:19:20 2009 +0100
@@ -1563,7 +1563,7 @@
         "/ search for case-ignoring match
         anEnvironment allMethodsWithSelectorDo:[:eachMethod :eachSelector |
             (isMatch 
-                ifTrue:[ (lcSym match:eachSelector ignoreCase:true) ]
+                ifTrue:[ (eachSelector match:eachSelector ignoreCase:true) ]
                 ifFalse:[ (eachSelector asLowercase startsWith:lcSym) ])
              ifTrue:[
                 matches add:eachSelector
@@ -1572,7 +1572,7 @@
     ].
 
     matches isEmpty ifTrue:[
-        ^ Array with:aPartialSymbolName with:(Array with:aPartialSymbolName)
+        ^ Array with:aPartialSymbolName with:#() "/ (Array with:aPartialSymbolName)
     ].
     matches size == 1 ifTrue:[
         ^ Array with:matches first with:(matches asArray)
@@ -1905,9 +1905,9 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.65 2009-12-14 09:57:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.66 2009-12-14 10:19:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.65 2009-12-14 09:57:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.66 2009-12-14 10:19:20 cg Exp $'
 ! !