--- a/Parser.st	Tue Jun 10 15:53:08 2003 +0200
+++ b/Parser.st	Thu Jun 12 13:06:41 2003 +0200
@@ -3303,7 +3303,7 @@
         s := '' writeStream.
         s nextPutAll:'Unused method variable(s): '.
         aNameCollection asSortedCollection do:[:name|
-            s nextPutAll:' '; nextPutAll:name asText allBold.
+            s nextPutAll:' '; nextPutAll:name allBold.
         ].
         msg := s contents.
 
@@ -7379,7 +7379,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.394 2003-06-04 09:32:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.395 2003-06-12 11:06:41 cg Exp $'
 ! !
 
 Parser initialize!