--- a/ClassDescr.st	Fri Mar 07 12:55:07 1997 +0100
+++ b/ClassDescr.st	Sat Mar 08 00:42:10 1997 +0100
@@ -373,13 +373,13 @@
     ].
     ^ self 
         perform:(self definitionSelector)
-        withArguments:(Array with:name 
+        withArguments:(Array with:nameSymbol 
                            with:instVarNameString 
                            with:classVarString
                            with:pool 
                            with:cat).
 
-    "Modified: 3.3.1997 / 11:55:30 / cg"
+    "Modified: 8.3.1997 / 00:41:08 / cg"
 !
 
 subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat inEnvironment:aNameSpace
@@ -1011,5 +1011,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.40 1997-03-03 12:08:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.41 1997-03-07 23:42:10 cg Exp $'
 ! !