--- a/InlineObject.st	Tue Jan 22 17:02:27 2019 +0100
+++ b/InlineObject.st	Tue Jan 22 17:03:14 2019 +0100
@@ -85,6 +85,12 @@
 
 !InlineObject class methodsFor:'instance creation'!
 
+flushMapOfClasses
+    MapOfClasses := nil
+
+    "Created: / 22-01-2019 / 17:02:59 / Claus Gittinger"
+!
+
 slotNames:names values:slotValues
     "return a new inline object given slot names and slot values"