--- a/Metaclass.st	Thu Nov 07 13:51:20 1996 +0100
+++ b/Metaclass.st	Thu Nov 07 13:52:48 1996 +0100
@@ -827,7 +827,6 @@
         commentString notNil ifTrue:[
             newClass comment:commentString
         ].
-
         namespace notNil ifTrue:[
             thisIsPrivate ifTrue:[
                 namespace privateClassesAt:classSymbol put:newClass.
@@ -850,7 +849,6 @@
         ^ newClass
     ].
 
-
     "
      here comes the hard part - we are actually changing the
      definition of an existing class ....
@@ -1255,7 +1253,7 @@
 
     "Created: 26.5.1996 / 11:55:26 / cg"
     "Modified: 18.6.1996 / 14:19:39 / stefan"
-    "Modified: 7.11.1996 / 12:57:09 / cg"
+    "Modified: 7.11.1996 / 13:48:49 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1592,6 +1590,18 @@
     ^ true
 !
 
+nameSpace
+    "return the nameSpace I am contained in.
+     Due to the implementation of nameSpaces (as classVariables),
+     a class can only be contained in one nameSpace (which is the desired)"
+
+    "/ this information is in the class
+
+    ^ myClass nameSpace
+
+    "Created: 7.11.1996 / 13:18:52 / cg"
+!
+
 owningClass
     "return nil here - regular metaclasses are never private"
 
@@ -1617,5 +1627,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.87 1996-11-07 11:58:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.88 1996-11-07 12:52:27 cg Exp $'
 ! !

--- a/PMetaclass.st	Thu Nov 07 13:51:20 1996 +0100
+++ b/PMetaclass.st	Thu Nov 07 13:52:48 1996 +0100
@@ -31,6 +31,15 @@
 
 !PrivateMetaclass methodsFor:'accessing'!
 
+nameSpace
+    "return the nameSpace I am contained in.
+     For private classes, this is always nil"
+
+    ^ nil
+
+    "Created: 7.11.1996 / 13:19:18 / cg"
+!
+
 owningClass
     "return my owningClass"
 
@@ -66,5 +75,5 @@
 !PrivateMetaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PMetaclass.st,v 1.8 1996-10-22 22:08:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PMetaclass.st,v 1.9 1996-11-07 12:52:48 cg Exp $'
 ! !

--- a/PrivateMetaclass.st	Thu Nov 07 13:51:20 1996 +0100
+++ b/PrivateMetaclass.st	Thu Nov 07 13:52:48 1996 +0100
@@ -31,6 +31,15 @@
 
 !PrivateMetaclass methodsFor:'accessing'!
 
+nameSpace
+    "return the nameSpace I am contained in.
+     For private classes, this is always nil"
+
+    ^ nil
+
+    "Created: 7.11.1996 / 13:19:18 / cg"
+!
+
 owningClass
     "return my owningClass"
 
@@ -66,5 +75,5 @@
 !PrivateMetaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.8 1996-10-22 22:08:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.9 1996-11-07 12:52:48 cg Exp $'
 ! !