--- a/ClassDefinitionChange.st	Fri Feb 09 17:40:38 2001 +0100
+++ b/ClassDefinitionChange.st	Fri Feb 09 17:40:49 2001 +0100
@@ -47,22 +47,40 @@
 
 !ClassDefinitionChange methodsFor:'accessing'!
 
+nameSpaceName
+    ^ nameSpaceName ? super nameSpaceName
+!
+
 nameSpaceName: aNameSpaceName classType: aClassType otherParameters: someOtherParameters
-    nameSpaceName := nameSpaceName.
+    nameSpaceName := aNameSpaceName.
     classType := aClassType.
     otherParameters := someOtherParameters
-
 !
 
 objectType
     "return the value of the instance variable 'objectType' (automatically generated)"
 
-    ^ objectType!
+    ^ objectType
+!
 
 objectType:something
     "set the value of the instance variable 'objectType' (automatically generated)"
 
-    objectType := something.! !
+    objectType := something.
+!
+
+source
+    "return the source of the change"
+
+    |nsName|
+
+    (nsName := self nameSpaceName) notNil ifTrue:[
+        ^ '"{ NameSpace: ' , nsName , ' }"' , 
+          Character cr, Character cr , 
+          super source 
+    ].
+    ^ super source
+! !
 
 !ClassDefinitionChange methodsFor:'comparing'!
 
@@ -108,5 +126,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.22 2000-08-31 10:01:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.23 2001-02-09 16:40:47 cg Exp $'
 ! !