--- a/Explainer.st	Sun May 24 11:26:33 2020 +0200
+++ b/Explainer.st	Wed May 27 17:42:07 2020 +0200
@@ -2153,12 +2153,19 @@
      or:[ valString size > 50
      or:[ valString includes:Character cr ]]) ifTrue:[
         valString := aValue classNameWithArticle.
+        (aValue class includesBehavior:Collection) ifTrue:[
+            aValue size == 0 ifTrue:[
+                valString := valString,'; empty'
+            ] ifFalse:[
+                valString := valString,('; size=%1' bindWith:aValue size)
+            ].
+        ].
     ].
 
     ^ valString
 
-    "Modified: / 14-10-2010 / 11:57:52 / cg"
     "Modified: / 08-06-2019 / 14:02:57 / Claus Gittinger"
+    "Modified: / 27-05-2020 / 17:41:25 / cg"
 ! !
 
 !Explainer class methodsFor:'naive type inferer'!