--- a/Explainer.st	Thu Dec 13 00:04:12 2012 +0100
+++ b/Explainer.st	Thu Dec 13 15:16:10 2012 +0100
@@ -570,15 +570,19 @@
         parser := self for:(ReadStream on:source) in:aClass
     ].
 
-    "instvars"
+    "instvars/class instVars"
     c := aClass whichClassDefinesInstVar:string.
     c notNil ifTrue:[
         c isMeta ifTrue:[
             clsName := c theNonMetaclass name.
             shortText ifTrue:[
-                ^ stringText , ': a class instVar in ' , clsName , '.'
+                stringText := stringText , ': a class instVar in ' , clsName
+            ] ifFalse:[
+                stringText := stringText, ': a class instance variable inherited from ' , clsName
             ].
-            ^ stringText, ': a class instance variable inherited from ' , clsName , '.'
+            val := aClass theNonMetaclass instVarNamed:string.
+            valString := self valueStringFor:val.
+            ^ stringText , ' (' , valString , ').'
         ].
 
         clsName := c name.
@@ -1455,9 +1459,9 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.114 2012-12-12 23:01:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.114 2012-12-12 23:01:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
 ! !