--- a/SystemBrowser.st	Tue Jul 01 20:35:40 2003 +0200
+++ b/SystemBrowser.st	Wed Jul 02 16:36:23 2003 +0200
@@ -4836,16 +4836,14 @@
     class isBehavior ifTrue:[^ Array with:class].      "/ a direct hit
 
     lcName := className asLowercase.
-    class := Smalltalk at:lcName asSymbol.
-    class isBehavior ifTrue:[^ Array with:class].      "/ an almost direct hit
 
     allClasses := Smalltalk allClasses.
 
     triedMatchers := OrderedCollection new.
     triedDetectors := OrderedCollection new.
     triedDetectors add:[:cls | cls name asLowercase = lcName].       
-    triedDetectors add:[:cls | cls nameWithoutPrefix asLowercase = lcName].      
-    triedDetectors add:[:cls | cls nameWithoutNameSpacePrefix asLowercase = lcName].      
+    triedMatchers add:[:cls | cls nameWithoutPrefix asLowercase = lcName].      
+    triedMatchers add:[:cls | cls nameWithoutNameSpacePrefix asLowercase = lcName].      
 
     triedMatchers add:[:cls | cls name asLowercase startsWith:lcName].      
     triedMatchers add:[:cls | cls nameWithoutNameSpacePrefix asLowercase startsWith:lcName].      
@@ -5026,7 +5024,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.191 2003-05-23 12:09:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.192 2003-07-02 14:36:23 cg Exp $'
 ! !
 
 SystemBrowser initialize!