--- a/extensions.st	Mon Oct 22 10:16:53 2012 +0200
+++ b/extensions.st	Mon Oct 22 22:16:00 2012 +0200
@@ -373,10 +373,12 @@
 inspectorValueStringInListFor:anInspector
     "returns a string to be shown in the inspector's list"
 
-    self isEmpty ifTrue:[
+    |sz|
+
+    (sz := self size) == 0 ifTrue:[
         ^ 'empty ' , self className
     ].
-    ^ (super inspectorValueStringInListFor:anInspector)
+    ^ (super inspectorValueStringInListFor:anInspector),' size=',sz printString
 ! !
 
 !Color methodsFor:'inspecting'!
@@ -1960,5 +1962,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.84 2012-10-17 19:04:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.85 2012-10-22 20:16:00 cg Exp $'
 ! !
\ No newline at end of file