--- 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
 !