--- a/ChangeSet.st	Wed Feb 07 18:18:52 2001 +0100
+++ b/ChangeSet.st	Fri Feb 09 17:40:38 2001 +0100
@@ -165,10 +165,20 @@
 "/        nameSpace ~~ Smalltalk ifTrue:[
 "/            className := nameSpace name , '::' , className
 "/        ].
+        nameSpace := Class nameSpaceQuerySignal query.
+        nameSpace ~~ Smalltalk ifTrue:[
+            className := nameSpace name , '::' , className
+        ].
+
         change := ClassDefinitionChange new.
         change 
             className:className;
             source:(aTree printString).
+
+"/        nameSpace ~~ Smalltalk ifTrue:[
+"/            change nameSpaceName:(nameSpace name).
+"/        ].
+"/
         aBlock value:change value:lineNumberOrNil value:posOrNil.
         ^ true
     ].
@@ -926,5 +936,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.59 2001-02-01 13:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.60 2001-02-09 16:40:38 cg Exp $'
 ! !