--- a/DebugView.st	Fri Dec 11 16:11:11 2009 +0100
+++ b/DebugView.st	Fri Dec 11 16:12:15 2009 +0100
@@ -2006,9 +2006,9 @@
     self 
         withNodeValueAtInterval:interval 
         do:[:value :description |
-            |valueClassString valueString|
-
-            valueClassString := valueString := ''.
+            |valueClassOrSizeString valueString|
+
+            valueClassOrSizeString := valueString := ''.
 
             "/ some heuristics as when to show the class name (a purely subjective preference)
             value isString ifTrue:[
@@ -2023,7 +2023,13 @@
                 or:[ value isSymbol ]]) ifTrue:[
                     valueString := value printString.
                 ] ifFalse:[
-                    valueClassString := ' (',value class name,')'.
+                    valueClassOrSizeString := ' (',value class name,')'.
+
+                    (value isArray
+                    or:[ value isOrderedCollection ]) ifTrue:[
+                        valueClassOrSizeString := ' (size=',value size printString,')'.
+                    ].
+
                     Error handle:[:ex |
                         valueString := '??? (',ex description,')'
                     ] do:[
@@ -2034,9 +2040,9 @@
                 ]
             ].
             description isEmptyOrNil ifTrue:[
-                s := valueString , valueClassString
+                s := valueString , valueClassOrSizeString
             ] ifFalse:[
-                s := description , ': ', valueString, valueClassString
+                s := description , ': ', valueString, valueClassOrSizeString
             ].
         ].
     "/ Transcript showCR:s.
@@ -4889,7 +4895,7 @@
     Error 
         handle:[:ex | ] 
         do:[ node := self findNodeForInterval:interval ].
-"/node printCR.
+
     node isNil ifTrue:[ ^ self ].
     node isVariable ifFalse:[ 
         "/ Transcript showCR:node.
@@ -6842,11 +6848,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.493 2009-12-09 18:07:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.493 2009-12-09 18:07:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
 ! !
 
 DebugView initialize!