--- a/ClassDescription.st	Sat Feb 09 15:06:24 2019 +0100
+++ b/ClassDescription.st	Sat Feb 09 15:06:39 2019 +0100
@@ -3596,6 +3596,34 @@
 
 !ClassDescription methodsFor:'subclass creation'!
 
+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 category:cat
     "create a new class as a subclass of an existing class (the receiver).
      The subclass will have indexed variables if the receiving-class has."