--- a/InlineObject.st	Fri Jun 28 13:24:21 2019 +0200
+++ b/InlineObject.st	Sat Jun 29 08:28:56 2019 +0200
@@ -17,7 +17,7 @@
 
 Object subclass:#InlineObject
 	instanceVariableNames:''
-	classVariableNames:'MapOfMutableClasses MapOfImmutableClasses'
+	classVariableNames:'MapOfImmutableClasses MapOfMutableClasses'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -124,7 +124,7 @@
     (subclass := map at:names ifAbsent:nil) isNil ifTrue:[
         Class withoutUpdatingChangesDo:[
             subclass := self 
-                            subclass:#someInlineObject
+                            subclass:#AnonymousInlineObject
                             instanceVariableNames:names
                             classVariableNames:nil
                             poolDictionaries:nil
@@ -151,6 +151,7 @@
     "
 
     "Created: / 25-06-2019 / 16:40:36 / Claus Gittinger"
+    "Modified: / 28-06-2019 / 14:38:32 / Claus Gittinger"
 !
 
 slotNamesAndValues:namesAndValues