--- a/extensions.st	Wed Jul 09 22:49:25 2014 +0200
+++ b/extensions.st	Thu Jul 10 14:20:42 2014 +0200
@@ -95,6 +95,16 @@
     ^ #()
 ! !
 
+!Bag methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    "extra (pseudo instvar) entries to be shown in an inspector."
+
+    ^ super inspectorExtraAttributes
+        add:('-histogram' -> [ (self sortedCounts collect:[:e| e displayString]) asStringCollection asString ]);
+        yourself
+! !
+
 !Behavior methodsFor:'inspecting'!
 
 inspectorExtraAttributes
@@ -2341,7 +2351,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.127 2014-07-09 16:21:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.128 2014-07-10 12:20:42 cg Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!