--- a/Context.st	Wed Aug 03 12:42:00 2011 +0200
+++ b/Context.st	Thu Aug 04 12:07:34 2011 +0200
@@ -1526,7 +1526,7 @@
 
     n := self numArgs.
     1 to:n do:[:index |
-        aStream nextPutAll:(self argStringFor:(self at:index)).
+        aStream nextPutAll:((self argStringFor:(self at:index)) contractTo:100).
         aStream nextPutAll:' '.
     ].
 !
@@ -2399,7 +2399,7 @@
 !Context class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.164 2011-08-02 07:34:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.165 2011-08-04 10:07:34 sr Exp $'
 !
 
 version_SVN