--- a/UndefinedObject.st	Sat Feb 09 14:34:50 2019 +0100
+++ b/UndefinedObject.st	Sat Feb 09 15:06:24 2019 +0100
@@ -435,6 +435,34 @@
     "Modified: / 18.3.1999 / 18:29:58 / stefan"
 !
 
+subclass:nameSymbol 
+    "create a new class as a subclass of an existing class (the receiver).
+     The subclass will have indexed variables if the receiving-class has."
+
+    ^ self 
+        subclass:nameSymbol 
+        instanceVariableNames:'' 
+        classVariableNames:'' 
+        poolDictionaries:'' 
+        category:'* as yet unspecified *'
+
+    "Created: / 09-02-2019 / 15:05:15 / Claus Gittinger"
+!
+
+subclass:nameSymbol instanceVariableNames:instVarNameString
+    "create a new class as a subclass of an existing class (the receiver).
+     The subclass will have indexed variables if the receiving-class has."
+
+    ^ self 
+        subclass:nameSymbol 
+        instanceVariableNames:instVarNameString 
+        classVariableNames:'' 
+        poolDictionaries:'' 
+        category:'* as yet unspecified *'
+
+    "Created: / 09-02-2019 / 15:05:36 / Claus Gittinger"
+!
+
 subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool
     "create a new class which has nil as superclass
      - i.e. traps into #doesNotUnderstand: for all of its messages."