--- a/MethodFinder.st	Fri Sep 20 11:37:11 2013 +0100
+++ b/MethodFinder.st	Fri Sep 27 23:47:49 2013 +0100
@@ -107,22 +107,29 @@
 !MethodFinder class methodsFor:'as yet unclassified'!
 
 methodFor: dataAndAnswers
-        "Return a Squeak expression that computes these answers.  (This method is called by the comment in the bottom pane of a MethodFinder.  Do not delete this method.)"
+    "Return a Squeak expression that computes these answers.  
+     (This method is called by the comment in the bottom pane of a MethodFinder.  
+     Do not delete this method.)"
+
+"/ but yes, I do !!
+"/ the finder already shows all the implementors in the right pane;
+"/ no need fr this.
 
-        | resultOC selFinder resultString |
-   
-        resultOC _ (self new) load: dataAndAnswers; findMessage.
-        resultString _ String streamContents: [:strm |
-                resultOC do: [:exp | strm nextPut: $(; nextPutAll: exp; nextPut: $); space]].
-        Smalltalk isMorphic ifTrue: [
-                selFinder _ (Display bestGuessOfCurrentWorld 
-                                submorphThat: [:mm | 
-                                                mm class == SystemWindow 
-                                                and: [mm model isKindOf: SelectorBrowser]] 
-                                ifNone: [^ resultString]) model.
-                selFinder searchResult: resultOC].
-
-        ^ resultString
+"/    | resultOC selFinder resultString |
+"/   
+"/    resultOC _ (self new) load: dataAndAnswers; findMessage.
+"/    resultString _ String streamContents: [:strm |
+"/            resultOC do: [:exp | strm nextPut: $(; nextPutAll: exp; nextPut: $); space]].
+"/
+"/    Smalltalk isMorphic ifTrue: [
+"/            selFinder _ (Display bestGuessOfCurrentWorld 
+"/                            submorphThat: [:mm | 
+"/                                            mm class == SystemWindow 
+"/                                            and: [mm model isKindOf: SelectorBrowser]] 
+"/                            ifNone: [^ resultString]) model.
+"/            selFinder searchResult: resultOC].
+"/
+"/    ^ resultString
 ! !
 
 !MethodFinder methodsFor:'accessing'!
@@ -1630,11 +1637,11 @@
 !MethodFinder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.34 2013-06-26 08:24:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.35 2013-09-24 20:07:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.34 2013-06-26 08:24:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.35 2013-09-24 20:07:43 cg Exp $'
 !
 
 version_HG