--- a/MessageTracer.st	Tue Apr 04 15:06:25 2006 +0200
+++ b/MessageTracer.st	Fri Apr 07 09:28:35 2006 +0200
@@ -2883,7 +2883,7 @@
         normal;
         nextPutAll:' rec=['. 
 
-    aContext receiver printOn:aStream.
+    self printObject:aContext receiver on:aStream.
     aStream nextPutAll:'] return: ['.
     retVal printOn:aStream.
     aStream nextPutAll:']'; cr; flush.
@@ -2937,7 +2937,7 @@
     |s|
 
     s := anObject printString.
-    s size > 20 ifTrue:[
+    s size > 30 ifTrue:[
         s := anObject classNameWithArticle
     ].
     aStream nextPutAll:s
@@ -3150,7 +3150,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.103 2006-03-10 09:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.104 2006-04-07 07:28:35 stefan Exp $'
 ! !
 
 MessageTracer initialize!