--- a/ClassInspectorView.st	Thu Nov 28 12:42:07 2013 +0100
+++ b/ClassInspectorView.st	Thu Nov 28 23:07:05 2013 +0100
@@ -58,7 +58,7 @@
     "/
     "/ add class variables
     "/
-    inspectedObject class withAllSuperclasses reverse do:[:aClass |
+    inspectedObject theNonMetaclass withAllSuperclasses reverse do:[:aClass |
         |varNames|
 
         varNames := aClass classVarNames.
@@ -102,6 +102,6 @@
 !ClassInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.13 2013-06-20 11:23:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.14 2013-11-28 22:07:05 cg Exp $'
 ! !