--- a/ClassDescr.st	Tue Jul 16 12:08:59 1996 +0200
+++ b/ClassDescr.st	Thu Jul 18 12:11:59 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Kernel-Classes'
 !
 
-!ClassDescription class methodsFor:'documentation'!
+!ClassDescription  class methodsFor:'documentation'!
 
 copyright
 "
@@ -61,7 +61,7 @@
 "
 ! !
 
-!ClassDescription class methodsFor:'instance creation'!
+!ClassDescription  class methodsFor:'instance creation'!
 
 new
     "creates and returns a new class.
@@ -74,7 +74,7 @@
     ^ newClass
 ! !
 
-!ClassDescription class methodsFor:'queries'!
+!ClassDescription  class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -212,14 +212,17 @@
 renameTo:newName
     "change the name of the class"
 
-    |oldSym|
+    |oldSym newSym|
 
     oldSym := name asSymbol.
-    self setName:newName.
+    newSym := newName asSymbol.
+    self setName:newSym.
 
     Smalltalk at:oldSym put:nil.
     Smalltalk removeKey:oldSym.             "26.jun 93"
-    Smalltalk at:(newName asSymbol) put:self.
+    Smalltalk at:newSym put:self.
+
+    "Modified: 18.7.1996 / 11:26:46 / cg"
 ! !
 
 !ClassDescription methodsFor:'signature checking'!
@@ -325,8 +328,8 @@
     name := aString
 ! !
 
-!ClassDescription class methodsFor:'documentation'!
+!ClassDescription  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.28 1996-04-25 16:45:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.29 1996-07-18 10:11:59 cg Exp $'
 ! !