--- a/ClassInspectorView.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/ClassInspectorView.st	Wed Apr 01 10:38:01 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 InspectorView subclass:#ClassInspectorView
 	instanceVariableNames:''
 	classVariableNames:''
@@ -58,7 +62,7 @@
     "/
     "/ add class variables
     "/
-    inspectedObject class withAllSuperclasses reverse do:[:aClass |
+    inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass |
         |varNames|
 
         varNames := aClass classVarNames.
@@ -84,7 +88,7 @@
     "/ a class variable
     "/
     idx0 := list size + 1.
-    inspectedObject class withAllSuperclasses reverse do:[:aClass |
+    inspectedObject class withAllSuperclasses reverseDo:[:aClass |
         |varNames varName|
 
         varNames := aClass classVarNames.
@@ -102,11 +106,6 @@
 !ClassInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.13 2013-06-20 11:23:51 cg Exp $'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.15 2015-03-25 14:11:59 cg Exp $'
 ! !