--- a/ClassDescription.st	Wed Sep 04 12:32:53 2002 +0200
+++ b/ClassDescription.st	Wed Sep 04 12:33:38 2002 +0200
@@ -2980,6 +2980,13 @@
     "Created: / 19.6.1998 / 02:28:09 / cg"
 !
 
+topNameSpace
+    "return the nameSpace of my topOwningClass (if private) or my own nameSpace."
+
+    self isPrivate ifTrue:[^ self topOwningClass topNameSpace].
+    ^ self nameSpace
+!
+
 whichCategoryIncludesSelector:aSelector
     "return the category under which the method for aSelector is
      classified"
@@ -3967,6 +3974,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.141 2002-07-24 15:05:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.142 2002-09-04 10:33:38 cg Exp $'
 ! !
 ClassDescription initialize!