--- a/SystemBrowser.st	Mon Dec 11 16:33:46 2000 +0100
+++ b/SystemBrowser.st	Mon Dec 11 17:24:11 2000 +0100
@@ -927,7 +927,9 @@
     "return a collection of methods which send aSelector.
      Methods from classes in aCollectionOfClasses are searched only."
 
-    |sel searchBlock selMatch lcString  quickMatch|
+    |sel searchBlock selMatch lcString  quickMatch classesSearched|
+
+    classesSearched := aCollectionOfClasses.
 
     ((aSelectorString ~= '*') 
      and:[(aSelectorString includesMatchCharacters or:[ignoreCase])]) ifTrue:[
@@ -1007,6 +1009,12 @@
             sel isNil ifTrue:[
                 ^ nil     "/ none
             ].
+
+            "/ exclude javaClasses, if selector cannot be a valid java-selector
+            (sel includes:$() ifFalse:[
+                classesSearched := classesSearched select:[:eachClass | eachClass theNonMetaclass isJavaClass not].
+            ].
+
             quickMatch := sel.
             (quickMatch includes:$:) ifTrue:[
                 quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
@@ -1028,7 +1036,7 @@
                            ].
         ]
     ].
-    ^ self allMethodsIn:aCollectionOfClasses where:searchBlock
+    ^ self allMethodsIn:classesSearched where:searchBlock
 
     "
      SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
@@ -3295,6 +3303,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.127 2000-12-07 20:00:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.128 2000-12-11 16:24:11 cg Exp $'
 ! !
 SystemBrowser initialize!