--- a/ClassDescription.st	Mon Oct 14 21:39:02 1996 +0200
+++ b/ClassDescription.st	Mon Oct 14 21:46:30 1996 +0200
@@ -199,11 +199,16 @@
         more := ' (removed)'
     ].
 
-    nm := self name.
+    self isPrivate ifTrue:[
+        nm := self namePrintString.
+        more := ' (private in ' , self owningClass name , ')'.
+    ] ifFalse:[
+        nm := self name.
+    ].
     more isNil ifTrue:[^ nm].
     ^ nm , more
 
-    "Modified: 10.9.1996 / 14:02:45 / cg"
+    "Modified: 14.10.1996 / 20:32:37 / cg"
 !
 
 isObsolete 
@@ -1024,5 +1029,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.33 1996-10-14 16:40:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.34 1996-10-14 19:46:30 cg Exp $'
 ! !