--- a/DebugView.st	Fri Dec 04 22:13:45 2009 +0100
+++ b/DebugView.st	Mon Dec 07 17:40:54 2009 +0100
@@ -2008,7 +2008,7 @@
         do:[:value :description |
             |valueClassString valueString|
 
-            valueClassString := ''.
+            valueClassString := valueString := ''.
 
             "/ some heuristics as when to show the class name (a purely subjective preference)
             value isString ifTrue:[
@@ -2020,7 +2020,9 @@
             ] ifFalse:[
                 (value isBoolean 
                 or:[ value isInteger 
-                or:[ value isSymbol ]]) ifFalse:[
+                or:[ value isSymbol ]]) ifTrue:[
+                    valueString := value printString.
+                ] ifFalse:[
                     valueClassString := ' (',value class name,')'.
                     Error handle:[:ex |
                         valueString := '??? (',ex description,')'
@@ -6839,11 +6841,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.491 2009-12-04 08:55:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.492 2009-12-07 16:40:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.491 2009-12-04 08:55:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.492 2009-12-07 16:40:54 cg Exp $'
 ! !
 
 DebugView initialize!