--- a/Metaclass.st	Thu Nov 07 13:52:48 1996 +0100
+++ b/Metaclass.st	Thu Nov 07 17:02:46 1996 +0100
@@ -553,6 +553,10 @@
             namespace isNamespace ifTrue:[
                 nameKey := (classSymbol copyFrom:(nsName size + 3)) asSymbol.
             ]
+        ] ifFalse:[
+            namespace ~~ Smalltalk ifTrue:[
+                realNewName := (namespace name , '::' , classSymbol) asSymbol.
+            ]
         ]
     ].
 
@@ -725,6 +729,10 @@
     thisIsPrivate ifTrue:[
         "/ some private class
         newMetaclass setOwningClass:namespace.
+    ].
+
+    (namespace notNil 
+    and:[namespace ~~ Smalltalk]) ifTrue:[
         newClass setName:(namespace name , '::' , nameKey) asSymbol.
     ] ifFalse:[
         newClass setName:classSymbol.
@@ -1253,7 +1261,7 @@
 
     "Created: 26.5.1996 / 11:55:26 / cg"
     "Modified: 18.6.1996 / 14:19:39 / stefan"
-    "Modified: 7.11.1996 / 13:48:49 / cg"
+    "Modified: 7.11.1996 / 16:51:36 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1627,5 +1635,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.88 1996-11-07 12:52:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.89 1996-11-07 16:02:46 cg Exp $'
 ! !