--- a/ClassChange.st	Mon Nov 13 13:03:50 2006 +0100
+++ b/ClassChange.st	Mon Nov 13 13:04:07 2006 +0100
@@ -56,6 +56,18 @@
     ^ self new class:aClass source:source
 
     "Created: 3.12.1995 / 14:01:32 / cg"
+!
+
+className:aClassName
+    ^ self new className:aClassName
+
+    "Created: / 13-11-2006 / 10:37:39 / cg"
+!
+
+className:aClassName source:source
+    ^ self new className:aClassName source:source
+
+    "Created: / 12-11-2006 / 20:11:26 / cg"
 ! !
 
 !ClassChange methodsFor:'accessing'!
@@ -112,10 +124,10 @@
 class:aClass
     "set the class of the change"
 
-    className := aClass name.
+    self className:aClass name.
 
-    "Created: 3.12.1995 / 14:01:45 / cg"
-    "Modified: 15.7.1996 / 09:28:26 / cg"
+    "Created: / 03-12-1995 / 14:01:45 / cg"
+    "Modified: / 12-11-2006 / 20:10:28 / cg"
 !
 
 class:aClass source:newSource
@@ -297,5 +309,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.45 2006-11-10 16:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.46 2006-11-13 12:04:07 cg Exp $'
 ! !