--- a/ClassChange.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ClassChange.st	Sun Dec 03 15:37:30 1995 +0100
@@ -37,15 +37,30 @@
 "
     Abstract superclass for class related changes
 "
-!
+! !
+
+!ClassChange class methodsFor:'instance creation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.10 1995-11-23 01:54:10 cg Exp $'
+class:aClass
+    ^ self new class:aClass
+
+    "Created: 3.12.1995 / 14:01:32 / cg"
 ! !
 
 !ClassChange methodsFor:'accessing'!
 
+class:aClass
+    className := aClass name.
+
+    "Created: 3.12.1995 / 14:01:45 / cg"
+!
+
 className 
     ^  className
 ! !
 
+!ClassChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.11 1995-12-03 14:37:30 cg Exp $'
+! !