--- a/MessageTracer.st	Thu Apr 02 11:33:58 2009 +0200
+++ b/MessageTracer.st	Fri Apr 03 14:29:29 2009 +0200
@@ -2885,8 +2885,8 @@
     |s|
 
     s := anObject printString.
-    s size > 30 ifTrue:[
-        s := anObject classNameWithArticle
+    s size > 40 ifTrue:[
+        s := s chopTo:40.
     ].
     aStream nextPutAll:s
 !
@@ -3183,7 +3183,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.107 2008-07-18 10:18:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.108 2009-04-03 12:29:29 stefan Exp $'
 ! !
 
 MessageTracer initialize!