--- a/DebugView.st	Wed Apr 22 16:10:44 2009 +0200
+++ b/DebugView.st	Wed Apr 22 19:38:11 2009 +0200
@@ -1916,8 +1916,9 @@
     self 
         withNodeValueAtInterval:interval 
         do:[:value :description |
-            |valueString|
-
+            |valueClassString valueString|
+
+            valueClassString := value class name.
             value isString ifTrue:[
                 value isText ifTrue:[
                     valueString := '"',(value contractTo:80),'"'.
@@ -1934,17 +1935,13 @@
                 ]
             ].
             description isEmptyOrNil ifTrue:[
-                s := valueString
+                s := valueString , ' (',valueClassString,')'
             ] ifFalse:[
-                s := description , ': ', valueString
+                s := description , ': ', valueString, ' (',valueClassString,')'
             ].
         ].
-
-
-    s notNil ifTrue:[
-        ^ s
-    ].
-    ^ nil
+    "/ Transcript showCR:s.
+    ^ s
 !
 
 helpTextFor:aComponent
@@ -4542,7 +4539,6 @@
     |source|
 
     interval isEmpty ifTrue: [^ nil].
-    RBParser isNil ifTrue:[^ nil].
 
     source := codeView contentsAsString string.
 "/    source := currentMethod notNil 
@@ -4759,10 +4755,15 @@
     |node definingNode nm nmBold varIdx parentNode receiver con|
 
 "/interval printCR.
-    Error handle:[:ex | ] do:[ node := self findNodeForInterval:interval ].
+    Error 
+        handle:[:ex | ] 
+        do:[ node := self findNodeForInterval:interval ].
 "/node printCR.
     node isNil ifTrue:[ ^ self ].
-    node isVariable ifFalse:[ ^ self ].
+    node isVariable ifFalse:[ 
+        "/ Transcript showCR:node.
+        ^ self 
+    ].
 
     nm := node name.
     nmBold := nm allBold.
@@ -6541,7 +6542,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.462 2009-03-13 11:05:42 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.463 2009-04-22 17:38:11 cg Exp $'
 ! !
 
 DebugView initialize!