--- a/ClassDescr.st	Sun Mar 02 00:23:00 1997 +0100
+++ b/ClassDescr.st	Mon Mar 03 13:08:06 1997 +0100
@@ -371,72 +371,15 @@
             comment:nil
             changed:true 
     ].
-    self isBytes ifTrue:[
-        ^ self
-            variableByteSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isLongs ifTrue:[
-        ^ self
-            variableLongSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isFloats ifTrue:[
-        ^ self
-            variableFloatSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isDoubles ifTrue:[
-        ^ self
-            variableDoubleSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isWords ifTrue:[
-        ^ self
-            variableWordSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isSignedWords ifTrue:[
-        ^ self
-            variableSignedWordSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
-    self isSignedLongs ifTrue:[
-        ^ self
-            variableSignedLongSubclass:nameSymbol
-            instanceVariableNames:instVarNameString
-            classVariableNames:classVarString
-            poolDictionaries:pool
-            category:cat
-    ].
+    ^ self 
+        perform:(self definitionSelector)
+        withArguments:(Array with:name 
+                           with:instVarNameString 
+                           with:classVarString
+                           with:pool 
+                           with:cat).
 
-    ^ self
-        variableSubclass:nameSymbol
-        instanceVariableNames:instVarNameString
-        classVariableNames:classVarString
-        poolDictionaries:pool
-        category:cat
-
-    "Created: 12.10.1996 / 19:18:15 / cg"
-    "Modified: 6.11.1996 / 22:48:14 / cg"
+    "Modified: 3.3.1997 / 11:55:30 / cg"
 !
 
 subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat inEnvironment:aNameSpace
@@ -1068,5 +1011,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.39 1997-02-08 19:04:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.40 1997-03-03 12:08:06 cg Exp $'
 ! !