--- a/ClassDescription.st	Fri Oct 10 08:25:51 2003 +0200
+++ b/ClassDescription.st	Fri Oct 10 08:57:01 2003 +0200
@@ -2936,13 +2936,6 @@
     "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"
@@ -3989,7 +3982,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.159 2003-09-22 09:10:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.160 2003-10-10 06:56:58 cg Exp $'
 ! !
 
 ClassDescription initialize!