--- a/ClassInspectorView.st	Wed Mar 25 11:52:43 2015 +0100
+++ b/ClassInspectorView.st	Wed Mar 25 15:11:59 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 theNonMetaclass 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,6 +106,6 @@
 !ClassInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.14 2013-11-28 22:07:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.15 2015-03-25 14:11:59 cg Exp $'
 ! !