--- a/Parser.st	Wed May 26 14:13:04 2004 +0200
+++ b/Parser.st	Thu May 27 18:19:50 2004 +0200
@@ -2909,8 +2909,11 @@
     selectorSymbol := aSelectorString asSymbolIfInterned.
     selectorSymbol isNil ifTrue:[
         nowhereImplemented := true.
-"/    ] ifFalse:[
-"/        nowhereImplemented := (self implementedInAnyClass:selectorSymbol) not.
+    ] ifFalse:[
+"/ temporarily disabled - too slow.
+"/        self isSyntaxHighlighter ifTrue:[
+"/            nowhereImplemented := (self implementedInAnyClass:selectorSymbol) not.
+"/        ]
     ].
 
     nowhereImplemented ifTrue:[
@@ -6824,7 +6827,7 @@
 
 implementedInAnyClass:selector
     Smalltalk allClassesAndMetaclassesDo:[:cls |
-        (cls implements:selector) ifTrue:[^ true].
+        (cls includesSelector:selector) ifTrue:[^ true].
     ].
     ^ false
 !
@@ -7510,7 +7513,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.423 2004-05-26 12:13:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.424 2004-05-27 16:19:50 cg Exp $'
 ! !
 
 Parser initialize!