--- a/ClassInspectorView.st	Sat Feb 11 15:49:09 2017 +0100
+++ b/ClassInspectorView.st	Sun Feb 12 11:06:00 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
@@ -63,18 +61,25 @@
     "/ add class variables (always sorted)
     "/
     inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass |
-        |varNames|
+        |varNames headLine|
 
         varNames := aClass classVarNames.
         varNames notEmpty ifTrue:[
             varNames sort.
-            aList add:('--- classvariables from ' , aClass name allBold, ' ---').
+            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,' ---').
             varNames do:[:classVarName |
                 aList add:classVarName
             ]
         ]
     ].
     ^ aList
+
+    "Modified: / 12-02-2017 / 11:03:47 / cg"
 !
 
 valueAtLine:lineNr