Merge jv
authorHG Automerge
Wed, 07 Dec 2016 11:59:59 +0000
branchjv
changeset 4177 9f25d78c378d
parent 4176 7c04827165e4 (current diff)
parent 4172 96c1701f5490 (diff)
child 4178 58cf05ca7c14
Merge
MessageTracer.st
--- a/.cvsignore	Tue Dec 06 14:06:06 2016 +0000
+++ b/.cvsignore	Wed Dec 07 11:59:59 2016 +0000
@@ -4,6 +4,7 @@
 libbasic3.*
 .listOfSTfiles
 .dependencies
+*.res
 *.H
 *.STH
 *.exp
--- 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