--- a/Behavior.st	Fri Aug 09 12:19:37 2019 +0200
+++ b/Behavior.st	Fri Aug 09 13:03:49 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -5118,10 +5120,15 @@
      Instvars of superclasses come first (i.e. the position matches
      the instVarAt:-index)."
 
-    self superclass isNil ifTrue:[^ self instVarNames].
+    |mySuperclass|
+
+    mySuperclass := self superclass.
+    (mySuperclass isNil or:[mySuperclass == Object]) ifTrue:[^ self instVarNames].
     ^ self addAllInstVarNamesTo:(OrderedCollection new)
 
     "
+     Point allInstVarNames 
+
      Dictionary instVarNames
      Dictionary allInstVarNames
     "