--- a/InlineObject.st	Mon Jan 21 13:15:58 2019 +0100
+++ b/InlineObject.st	Mon Jan 21 13:17:31 2019 +0100
@@ -83,11 +83,7 @@
 "
 ! !
 
-!InlineObject class methodsFor:'prototype access'!
-
-prototype
-    ^ InlineObjectPrototype
-!
+!InlineObject class methodsFor:'instance creation'!
 
 slotNames:names values:slotValues
     "return a new inline object given slot names and slot values"
@@ -133,6 +129,12 @@
     "Created: / 21-01-2019 / 13:15:46 / Claus Gittinger"
 ! !
 
+!InlineObject class methodsFor:'prototype access'!
+
+prototype
+    ^ InlineObjectPrototype
+! !
+
 !InlineObject methodsFor:'printing & storing'!
 
 storeOn:aStream