--- a/ClassDescr.st	Tue Oct 15 21:36:00 1996 +0200
+++ b/ClassDescr.st	Tue Oct 15 21:37:17 1996 +0200
@@ -200,7 +200,7 @@
     ].
 
     self isPrivate ifTrue:[
-        nm := self namePrintString.
+        nm := self nameWithoutPrefix.
         more := ' (private in ' , self owningClass name , ')'.
     ] ifFalse:[
         nm := self name.
@@ -208,7 +208,7 @@
     more isNil ifTrue:[^ nm].
     ^ nm , more
 
-    "Modified: 14.10.1996 / 20:32:37 / cg"
+    "Modified: 15.10.1996 / 20:01:30 / cg"
 !
 
 isObsolete 
@@ -1029,5 +1029,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.34 1996-10-14 19:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.35 1996-10-15 19:36:34 cg Exp $'
 ! !

--- a/ClassDescription.st	Tue Oct 15 21:36:00 1996 +0200
+++ b/ClassDescription.st	Tue Oct 15 21:37:17 1996 +0200
@@ -200,7 +200,7 @@
     ].
 
     self isPrivate ifTrue:[
-        nm := self namePrintString.
+        nm := self nameWithoutPrefix.
         more := ' (private in ' , self owningClass name , ')'.
     ] ifFalse:[
         nm := self name.
@@ -208,7 +208,7 @@
     more isNil ifTrue:[^ nm].
     ^ nm , more
 
-    "Modified: 14.10.1996 / 20:32:37 / cg"
+    "Modified: 15.10.1996 / 20:01:30 / cg"
 !
 
 isObsolete 
@@ -1029,5 +1029,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.34 1996-10-14 19:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.35 1996-10-15 19:36:34 cg Exp $'
 ! !

--- a/Metaclass.st	Tue Oct 15 21:36:00 1996 +0200
+++ b/Metaclass.st	Tue Oct 15 21:37:17 1996 +0200
@@ -1534,6 +1534,14 @@
     "Created: 12.10.1996 / 20:12:16 / cg"
 !
 
+package
+    "return my package-id"
+
+    ^ myClass package
+
+    "Created: 15.10.1996 / 19:44:51 / cg"
+!
+
 soleInstance 
     "return my sole class."
 
@@ -1543,5 +1551,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.71 1996-10-15 11:28:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.72 1996-10-15 19:36:55 cg Exp $'
 ! !

--- a/PMetaclass.st	Tue Oct 15 21:36:00 1996 +0200
+++ b/PMetaclass.st	Tue Oct 15 21:37:17 1996 +0200
@@ -47,10 +47,18 @@
 
 isBuiltInClass
      ^ self == PrivateMetaclass
+!
+
+package
+    "return my package-id"
+
+    ^ owningClass package
+
+    "Created: 15.10.1996 / 19:45:04 / cg"
 ! !
 
 !PrivateMetaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PMetaclass.st,v 1.6 1996-10-15 18:01:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PMetaclass.st,v 1.7 1996-10-15 19:37:17 cg Exp $'
 ! !

--- a/PrivateMetaclass.st	Tue Oct 15 21:36:00 1996 +0200
+++ b/PrivateMetaclass.st	Tue Oct 15 21:37:17 1996 +0200
@@ -47,10 +47,18 @@
 
 isBuiltInClass
      ^ self == PrivateMetaclass
+!
+
+package
+    "return my package-id"
+
+    ^ owningClass package
+
+    "Created: 15.10.1996 / 19:45:04 / cg"
 ! !
 
 !PrivateMetaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.6 1996-10-15 18:01:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.7 1996-10-15 19:37:17 cg Exp $'
 ! !