--- a/tools/JavaToolbox.st	Tue Sep 10 02:41:25 2013 +0200
+++ b/tools/JavaToolbox.st	Tue Sep 10 16:08:08 2013 +0200
@@ -191,8 +191,9 @@
 
     classes do: [:cls | 
         cls isJavaClass ifTrue: [
-            ((cls canUnderstand: searchSelector) and:[ JavaVM canCast: cls javaClass to: searchClass]) ifTrue:[
-                block value: (cls compiledMethodAt: searchSelector)
+            | m |
+            ((m := cls compiledMethodAt: searchSelector) notNil and:[ JavaVM canCast: cls javaClass to: searchClass]) ifTrue:[
+                block value: m
             ]
         ]
     ].
@@ -254,6 +255,6 @@
 !JavaToolbox class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/tools/JavaToolbox.st,v 1.1 2013-09-06 00:45:28 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/tools/JavaToolbox.st,v 1.2 2013-09-10 14:08:08 vrany Exp $'
 ! !