--- a/Parser.st	Fri Feb 25 16:02:33 2000 +0100
+++ b/Parser.st	Tue Feb 29 19:10:48 2000 +0100
@@ -2679,7 +2679,7 @@
             ].
         ].
         newSelector := self correctSelector:aSelectorString 
-                    message:err position:pos1 to:pos2 in:selClass.
+                    message:(aSelectorString asText allBold, err) position:pos1 to:pos2 in:selClass.
 "/        self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
         ^ newSelector.
     ].
@@ -5429,6 +5429,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.240 2000-02-15 14:16:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.241 2000-02-29 18:10:48 cg Exp $'
 ! !
 Parser initialize!