--- a/MethodFinder.st	Sun Jul 28 01:08:19 2019 +0200
+++ b/MethodFinder.st	Tue Jul 30 11:49:20 2019 +0200
@@ -1643,6 +1643,7 @@
     |sz argList val rec activeSel perform argIsBlock expectedAnswer|
 
 "/ (aSelector startsWith:'copy') ifTrue:[Transcript showCR:aSelector].
+"/ (aSelector = 'raisedTo:') ifTrue:[Transcript showCR:aSelector].
 
     "Transcript cr; show: aSelector.                debug"
     perform := aSelector beginsWith:'perform:'.
@@ -1695,7 +1696,7 @@
         val := 
             [
                 [
-                    (selector startsWith:'copy') ifTrue:[Transcript showCR:selector].
+                    "/ (selector startsWith:'copy') ifTrue:[Transcript showCR:selector].
                     rec copy perform:aSelector withArguments:argList
                 ] on:ObsoleteMethodCallWarning do:[
                     ^ false