--- a/Smalltalk.st	Fri Mar 24 18:15:32 2000 +0100
+++ b/Smalltalk.st	Mon Mar 27 15:05:33 2000 +0200
@@ -1008,9 +1008,9 @@
     i2 := 1.
     ns := self.
     [i2 ~~ 0] whileTrue:[
-        i2 := aClass name indexOfSubCollection:'::' startingAt:i1.
+        i2 := newName indexOfSubCollection:'::' startingAt:i1.
         i2 ~~ 0 ifTrue:[
-            nm := aClass name copyFrom:i1 to:i2-1.
+            nm := newName copyFrom:i1 to:i2-1.
             ns isNameSpace ifTrue:[
                 subns := ns at:nm asSymbol ifAbsent:nil.
                 subns isNil ifTrue:[
@@ -1111,9 +1111,8 @@
 
     aClass addChangeRecordForClassRename:oldSym to:newSym.
 
-    "/ set the namespace
-    aClass setEnvironment:ns.
-
+    "/ clear the namespace (for namespace query to work)
+    aClass setEnvironment:nil.
     aClass isPrivate ifTrue:[
         newNameSpace := aClass topOwningClass nameSpace.
     ] ifFalse:[    
@@ -5556,5 +5555,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.443 2000-03-24 17:04:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.444 2000-03-27 13:05:33 cg Exp $'
 ! !