--- a/ChangeSet.st	Wed Apr 05 22:27:56 2000 +0200
+++ b/ChangeSet.st	Wed Apr 12 23:40:29 2000 +0200
@@ -610,7 +610,8 @@
     ].
 
     sel == #'name:' ifTrue:[
-        (receiverVarName == #Namespace) ifTrue:[
+        ((receiverVarName == #Namespace) 
+	or:[receiverVarName == #NameSpace]) ifTrue:[
             className := (aTree arguments at:1) evaluate.
 
             change := NameSpaceCreationChange new.
@@ -814,5 +815,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.44 2000-03-30 15:31:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.45 2000-04-12 21:40:29 cg Exp $'
 ! !