--- a/ClassDescr.st	Tue Nov 05 20:45:04 1996 +0100
+++ b/ClassDescr.st	Tue Nov 05 23:05:36 1996 +0100
@@ -707,7 +707,7 @@
     ].
     self isLongs ifTrue:[
         ^ self
-            variableLongSubclass:nameSymbol privateIn:aClass
+            variableLongSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -715,7 +715,7 @@
     ].
     self isFloats ifTrue:[
         ^ self
-            variableFloatSubclass:nameSymbol privateIn:aClass
+            variableFloatSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -723,7 +723,7 @@
     ].
     self isDoubles ifTrue:[
         ^ self
-            variableDoubleSubclass:nameSymbol privateIn:aClass
+            variableDoubleSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -731,7 +731,7 @@
     ].
     self isWords ifTrue:[
         ^ self
-            variableWordSubclass:nameSymbol privateIn:aClass
+            variableWordSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -739,7 +739,7 @@
     ].
     self isSignedWords ifTrue:[
         ^ self
-            variableSignedWordSubclass:nameSymbol privateIn:aClass
+            variableSignedWordSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -747,7 +747,7 @@
     ].
     self isSignedLongs ifTrue:[
         ^ self
-            variableSignedLongSubclass:nameSymbol privateIn:aClass
+            variableSignedLongSubclass:nameSymbol
             instanceVariableNames:instVarNameString
             classVariableNames:classVarString
             poolDictionaries:pool
@@ -755,14 +755,14 @@
     ].
 
     ^ self
-        variableSubclass:nameSymbol privateIn:aClass
+        variableSubclass:nameSymbol
         instanceVariableNames:instVarNameString
         classVariableNames:classVarString
         poolDictionaries:pool
         privateIn:aClass
 
     "Created: 11.10.1996 / 16:30:53 / cg"
-    "Modified: 14.10.1996 / 17:39:37 / cg"
+    "Modified: 5.11.1996 / 23:05:22 / cg"
 !
 
 variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -1034,5 +1034,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.36 1996-10-15 20:22:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.37 1996-11-05 22:05:36 cg Exp $'
 ! !