--- a/MethodFinder.st	Mon Jun 24 03:25:27 2013 +0000
+++ b/MethodFinder.st	Tue Jun 25 17:21:08 2013 +0200
@@ -116,8 +116,9 @@
                 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].
 
@@ -645,7 +646,7 @@
     "in class" 
         primesUpTo:
     "testing" 
-        isPowerOfTwo digitBytes isPrime nextPrime
+        isPowerOfTwo isPowerOf: digitBytes isPrime nextPrime
     "arithmetic" 
         alignedTo:
     "comparing"
@@ -1630,9 +1631,10 @@
 !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.33 2013-06-25 15:21:08 cg 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.33 2013-06-25 15:21:08 cg Exp $'
 ! !
+