--- a/ClassDefinitionChange.st	Tue Aug 26 19:01:46 2003 +0200
+++ b/ClassDefinitionChange.st	Tue Aug 26 19:43:37 2003 +0200
@@ -54,6 +54,9 @@
 !
 
 nameSpaceName
+    objectType == #variable ifTrue:[
+        ^ nil
+    ].
     ^ self cutNameSpaceOf:(nameSpaceName ? super nameSpaceName)
 !
 
@@ -148,9 +151,9 @@
     ^ String streamContents:[:stream |
         objectType == #variable ifTrue:[
             stream 
-                nextPutAll:self nameSpaceName;
+                nextPutAll:((nameSpaceName asCollectionOfSubstringsSeparatedBy:$.) asStringWith:'::');
                 nextPutAll:' addClassVarName:';
-                nextPutAll:self className asString storeString
+                nextPutAll:className asString storeString
         ] ifFalse:[
             stream 
                 nextPutAll:self superClassName;
@@ -235,5 +238,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.30 2003-04-09 12:24:00 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.31 2003-08-26 17:43:37 cg Exp $'
 ! !