--- a/ClassChange.st	Tue Jun 03 13:06:40 2003 +0200
+++ b/ClassChange.st	Tue Jun 03 18:25:01 2003 +0200
@@ -101,11 +101,7 @@
 class:aClass source:newSource
     "set both class and source of the change"
 
-    className := aClass name.
-    source := newSource.
-
-    "Created: 3.12.1995 / 14:01:45 / cg"
-    "Modified: 15.7.1996 / 09:28:26 / cg"
+    self className:(aClass name) source:newSource
 !
 
 className 
@@ -125,6 +121,18 @@
     "Created: / 16.2.1998 / 13:05:36 / cg"
 !
 
+className:newClassName source:newSource
+    "set both className and source of the change"
+
+newSource isString ifFalse:[self halt].
+newClassName isString ifFalse:[self halt].
+    className := newClassName.
+    source := newSource.
+
+    "Created: 3.12.1995 / 14:01:45 / cg"
+    "Modified: 15.7.1996 / 09:28:26 / cg"
+!
+
 package
     "return the value of the instance variable 'package' (automatically generated)"
 
@@ -208,5 +216,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.34 2003-04-09 12:21:54 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.35 2003-06-03 16:24:51 cg Exp $'
 ! !

--- a/ClassPrimitiveChange.st	Tue Jun 03 13:06:40 2003 +0200
+++ b/ClassPrimitiveChange.st	Tue Jun 03 18:25:01 2003 +0200
@@ -40,7 +40,9 @@
 !ClassPrimitiveChange methodsFor:'accessing'!
 
 class:aClass source:newSource
-    className := aClass.
+newSource isString ifFalse:[self halt].
+
+    className := aClass name.
     source := newSource
 
     "Created: 3.12.1995 / 14:02:40 / cg"
@@ -66,5 +68,5 @@
 !ClassPrimitiveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.3 2000-08-22 19:57:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.4 2003-06-03 16:25:01 cg Exp $'
 ! !