--- a/MessageTracer.st	Tue Dec 06 14:06:06 2016 +0000
+++ b/MessageTracer.st	Wed Dec 07 11:59:59 2016 +0000
@@ -3578,7 +3578,7 @@
     ] ifFalse:[
         s := anObject printString.
         s size > 40 ifTrue:[
-            s := s chopTo:40.
+            s := s contractTo:40.
         ].
     ].
     aStream nextPutAll:s