--- a/ClassDescr.st	Tue Oct 15 22:21:04 1996 +0200
+++ b/ClassDescr.st	Tue Oct 15 22:22:22 1996 +0200
@@ -95,12 +95,17 @@
     "return the category of the class. 
      The returned value may be a string or symbol."
 
+    |owner|
+
+    (owner := self owningClass) notNil ifTrue:[^ owner category].
     ^ category
 
     "
      Point category                
      Dictionary category           
     "
+
+    "Modified: 15.10.1996 / 21:20:01 / cg"
 !
 
 category:aStringOrSymbol
@@ -1029,5 +1034,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.35 1996-10-15 19:36:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.36 1996-10-15 20:22:22 cg Exp $'
 ! !