--- a/Parser.st	Sat Jan 08 18:05:17 1994 +0100
+++ b/Parser.st	Sun Jan 09 22:30:29 1994 +0100
@@ -43,7 +43,7 @@
 a method - this is done by sending parseXXX message to a parser and asking
 the parser for referencedXVars or modifiedXVars (see SystemBrowser).
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.6 1994-01-08 17:05:13 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.7 1994-01-09 21:30:19 claus Exp $
 '!
 
 !Parser class methodsFor:'evaluating expressions'!
@@ -445,9 +445,17 @@
     Transcript show:' '.
     selector notNil ifTrue:[
         Transcript show:aMessage.
-        Transcript showCr:(' in ' , selector)
+        classToCompileFor notNil ifTrue:[
+            Transcript showCr:(' in ' , classToCompileFor name , '>>' , selector)
+        ] ifFalse:[
+            Transcript showCr:(' in ' , selector)
+        ]
     ] ifFalse:[
-        Transcript showCr:aMessage
+        classToCompileFor notNil ifTrue:[
+            Transcript showCr:aMessage , ' (' , classToCompileFor name , ')'
+        ] ifFalse:[
+            Transcript showCr:aMessage
+        ]
     ]
 !