--- a/ClassDescription.st	Sat Nov 16 22:34:07 2019 +0100
+++ b/ClassDescription.st	Sat Nov 16 22:34:24 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -835,6 +833,23 @@
     ^ self categories
 
     "Created: / 13-07-2017 / 13:16:33 / cg"
+!
+
+subclass:nameSymbol
+        instanceVariableNames:instVarNameString
+        classVariableNames:classVarNameString
+        package:packageName
+
+    "create a new class as a subclass of an existing class (the receiver).
+     The subclass will have indexed variables if the receiving-class has.
+     Squeak uses the category as package"
+
+    ^ self 
+        subclass:nameSymbol 
+        instanceVariableNames:instVarNameString 
+        classVariableNames:classVarNameString 
+        poolDictionaries:'' 
+        category:packageName
 ! !
 
 !ClassDescription methodsFor:'Compatibility-V''Age'!