--- a/ClassInspectorView.st	Fri Aug 30 10:49:35 2019 +0200
+++ b/ClassInspectorView.st	Fri Aug 30 10:54:57 2019 +0200
@@ -63,19 +63,25 @@
     "/ add class variables (always sorted)
     "/
     inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass |
-        |varNames headLine|
+        |varNames headLine classNameAsShown|
 
         varNames := aClass classVarNames.
         varNames notEmpty ifTrue:[
             varNames sort.
-            aClass isSharedPool ifTrue:[
-                headLine := resources string:'pool variables in %1' with:aClass name allBold.
-            ] ifFalse:[    
-                headLine := resources string:'class variables from %1' with:aClass name allBold.
-            ].
-            aList add:('--- ',headLine,' ---').
+            classNameAsShown := aClass name allBold.
+            headLine := resources 
+                            string:(aClass isSharedPool 
+                                ifTrue:['pool variables in %1']
+                                ifFalse:['class variables from %1']
+                            ) 
+                            with:classNameAsShown.
+            aList add:('----- ',headLine,' -----').
             varNames do:[:classVarName |
-                aList add:classVarName
+                |value|
+
+                value := aClass classVarAt:classVarName.
+                aList add:(self listEntryForName:classVarName value:value).
+                "/ aList add:classVarName
             ]
         ]
     ].