--- a/Metaclass.st	Fri Mar 24 17:43:57 2000 +0100
+++ b/Metaclass.st	Fri Mar 24 18:04:25 2000 +0100
@@ -635,7 +635,7 @@
                     or:[(self 
                             confirm:('nonexistent namespace: `' , nsName , '''.\\Create ?') withCRs)])
                     ifFalse:[^ nil].
-                    namespace := Namespace name:nsName.
+                    namespace := NameSpace name:nsName.
                 ] ifFalse:[
                     self warn:('a global named ' , nsName , ' exists, but is no namespace.') withCRs.
                     ^ nil
@@ -1443,7 +1443,9 @@
     "/ change any private subclasses' owners
 
     oldClass privateClassesDo:[:aClass |
-        aClass class setOwningClass:newClass
+        aClass isLoaded ifTrue:[
+            aClass class setOwningClass:newClass
+        ]
     ].
 
     "/ change category in oldClass - so we see immediately what it is ...
@@ -1577,7 +1579,7 @@
 
     "let user confirm, if the classname is no good"
     className first isUppercase ifFalse:[
-        aClass == Namespace ifTrue:[
+        aClass == NameSpace ifTrue:[
             what := 'namespace'
         ] ifFalse:[
             what := 'class'
@@ -2100,6 +2102,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.163 2000-03-24 16:43:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.164 2000-03-24 17:03:24 cg Exp $'
 ! !
 Metaclass initialize!