--- a/ClassChange.st	Wed Jan 17 18:12:59 2001 +0100
+++ b/ClassChange.st	Wed Jan 17 18:40:37 2001 +0100
@@ -61,6 +61,12 @@
     ^ Smalltalk classNamed:className
 !
 
+changeClass:aClass
+    "set the class of the change"
+
+    className := aClass name.
+!
+
 class:aClass
     "set the class of the change"
 
@@ -129,5 +135,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.23 2000-08-31 10:01:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.24 2001-01-17 17:40:37 cg Exp $'
 ! !