--- a/Parser.st	Wed Jan 25 11:08:21 2006 +0100
+++ b/Parser.st	Tue Jan 31 17:14:49 2006 +0100
@@ -3598,14 +3598,22 @@
 warnUnused:aNameCollection
     "report an unused method variable"
 
-    |msg answer|
+    |msg answer lineLength first|
 
     (ignoreErrors not 
     and:[ignoreWarnings not 
     and:[parserFlags warnUnusedVars]]) ifTrue:[
         msg := 'Unused method variable(s): '.
+        lineLength := msg size.
+        first := true.
         aNameCollection asSortedCollection do:[:name|
-            msg := msg , (' "',name allBold,'"').
+            first ifTrue:[ first := false ] ifFalse:[msg := msg , ', '].
+            msg := msg , ('"',name allBold,'"').
+            lineLength := lineLength + 2 + name size + 1.
+            lineLength > 60 ifTrue:[
+                msg := msg , '\' withCRs.
+                lineLength := 0.
+            ].
         ].
 
         (requestor isNil or:[requestor isStream]) ifTrue:[
@@ -8033,7 +8041,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.475 2006-01-25 10:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.476 2006-01-31 16:14:34 cg Exp $'
 ! !
 
 Parser initialize!

--- a/Variable.st	Wed Jan 25 11:08:21 2006 +0100
+++ b/Variable.st	Tue Jan 31 17:14:49 2006 +0100
@@ -123,6 +123,12 @@
     "Created: 19.6.1997 / 17:11:48 / cg"
 ! !
 
+!Variable methodsFor:'printing & storing'!
+
+printOn:aStream
+    aStream nextPutAll:name
+! !
+
 !Variable methodsFor:'special'!
 
 domain
@@ -161,5 +167,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.20 2005-06-15 11:31:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.21 2006-01-31 16:14:49 cg Exp $'
 ! !