| author | HG Automerge |
| Thu, 01 Dec 2016 09:27:10 +0000 | |
| branch | jv |
| changeset 4169 | 47909c58f573 |
| parent 4168 | 2ec8d1bba408 (current diff) |
| parent 4165 | 8b8d8ccce41b (diff) |
| child 4176 | 7c04827165e4 |
| MessageTracer.st | file | annotate | diff | comparison | revisions |
--- a/MessageTracer.st Tue Nov 29 13:34:10 2016 +0000 +++ b/MessageTracer.st Thu Dec 01 09:27:10 2016 +0000 @@ -3573,9 +3573,13 @@ printObject:anObject on:aStream |s| - s := anObject printString. - s size > 40 ifTrue:[ - s := s chopTo:40. + anObject isProtoObject ifTrue:[ + s := anObject classNameWithArticle + ] ifFalse:[ + s := anObject printString. + s size > 40 ifTrue:[ + s := s chopTo:40. + ]. ]. aStream nextPutAll:s !