--- a/Metaclass.st	Fri Jul 16 20:05:56 1999 +0200
+++ b/Metaclass.st	Fri Jul 16 20:49:45 1999 +0200
@@ -820,9 +820,7 @@
 
     (namespace notNil 
     and:[namespace ~~ Smalltalk]) ifTrue:[
-realNewName printCR.
-(namespace name , '::' , nameKey) printCR.
-        newClass setName:(namespace name , '::' , nameKey) asSymbol.
+        newClass setName:realNewName.
         "/
         "/ if that key exists in smalltalk,
         "/ must recompile everything in that nameSpace,
@@ -1889,8 +1887,10 @@
     ].
     aNamespace isNamespace ifTrue:[
         aNamespace allBehaviorsDo:[:cls |
-            blk value:cls.
-            cls allPrivateClassesDo:blk
+            cls isLoaded ifTrue:[  "/ no need to compile unloaded ones
+                blk value:cls.
+                cls allPrivateClassesDo:blk
+            ]
         ]
     ] ifFalse:[
         aNamespace allPrivateClassesDo:blk
@@ -2034,6 +2034,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.146 1999-07-16 18:05:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.147 1999-07-16 18:49:45 cg Exp $'
 ! !
 Metaclass initialize!