--- a/MethodFinder.st	Wed Jun 12 11:54:30 2013 +0100
+++ b/MethodFinder.st	Mon Jul 01 22:14:32 2013 +0100
@@ -42,7 +42,6 @@
 "
 ! !
 
-
 !MethodFinder class methodsFor:'accessing'!
 
 abortAllSignal
@@ -105,7 +104,6 @@
     Dangerous := something.
 ! !
 
-
 !MethodFinder class methodsFor:'as yet unclassified'!
 
 methodFor: dataAndAnswers
@@ -118,15 +116,15 @@
                 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]] 
+                                submorphThat: [:mm | 
+                                                mm class == SystemWindow 
+                                                and: [mm model isKindOf: SelectorBrowser]] 
                                 ifNone: [^ resultString]) model.
                 selFinder searchResult: resultOC].
 
         ^ resultString
 ! !
 
-
 !MethodFinder methodsFor:'accessing'!
 
 answers
@@ -149,7 +147,6 @@
         ^ selector
 ! !
 
-
 !MethodFinder methodsFor:'arg maps'!
 
 argMap
@@ -192,7 +189,6 @@
         ^ thisData 
 ! !
 
-
 !MethodFinder methodsFor:'find a constant'!
 
 allNumbers
@@ -217,21 +213,20 @@
 !
 
 constDiv
-        | const subTest got |
         "See if (data1 // C) is the answer"
         self breakPoint:#cg.
         ^ false.
 
-        const _ ((thisData at: 1) at: 1) // (answers at: 1).  "May not be right!!"
-        got _ (subTest _ MethodFinder new copy: self addArg: const) 
-                                searchForOne isEmpty not.
-        got ifFalse: [^ false]. 
-
-        "replace data2 with const in expressions"
-        subTest expressions do: [:exp |
-                expressions add: (exp copyReplaceString: "copyReplaceAll:" 'data2' withString: "with:" const printString)].
-        selector addAll: subTest selectors.
-        ^ true
+"/        const _ ((thisData at: 1) at: 1) // (answers at: 1).  "May not be right!!"
+"/        got _ (subTest _ MethodFinder new copy: self addArg: const) 
+"/                                searchForOne isEmpty not.
+"/        got ifFalse: [^ false]. 
+"/
+"/        "replace data2 with const in expressions"
+"/        subTest expressions do: [:exp |
+"/                expressions add: (exp copyReplaceString: "copyReplaceAll:" 'data2' withString: "with:" const printString)].
+"/        selector addAll: subTest selectors.
+"/        ^ true
 !
 
 constLessThan
@@ -333,7 +328,6 @@
         ^ true
 ! !
 
-
 !MethodFinder methodsFor:'initialization'!
 
 cleanInputs: dataAndAnswerString
@@ -651,7 +645,7 @@
     "in class" 
         primesUpTo:
     "testing" 
-        isPowerOfTwo digitBytes isPrime nextPrime
+        isPowerOfTwo isPowerOf: digitBytes isPrime nextPrime
     "arithmetic" 
         alignedTo:
     "comparing"
@@ -1348,7 +1342,6 @@
         (#x at: 1) codePoint = 120 ifFalse: [self error: 'Character table mod'].
 ! !
 
-
 !MethodFinder methodsFor:'search'!
 
 exceptions
@@ -1574,7 +1567,6 @@
     "Modified: / 13.11.2001 / 19:08:39 / cg"
 ! !
 
-
 !MethodFinder methodsFor:'tests'!
 
 verify
@@ -1635,15 +1627,14 @@
         ) searchForOne asArray = #('data1 \\ data2') ifFalse: [self error: 'should have found it'].     
 ! !
 
-
 !MethodFinder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.31 2012-10-29 11:38:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.34 2013-06-26 08:24:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.31 2012-10-29 11:38:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.34 2013-06-26 08:24:42 stefan Exp $'
 !
 
 version_HG