--- a/MessageTracer.st	Tue Dec 06 12:43:12 2016 +0100
+++ b/MessageTracer.st	Tue Dec 06 15:04:47 2016 +0100
@@ -3578,7 +3578,7 @@
     ] ifFalse:[
         s := anObject printString.
         s size > 40 ifTrue:[
-            s := s chopTo:40.
+            s := s contractTo:40.
         ].
     ].
     aStream nextPutAll:s