--- a/Class.st	Wed Mar 29 15:53:33 2000 +0200
+++ b/Class.st	Wed Mar 29 18:25:25 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
 		revision primitiveSpec environment signature hook'
@@ -1767,6 +1769,12 @@
     ].
     fullName := FileOutNameSpaceQuerySignal query == true.
         
+    owner isNil ifTrue:[
+        aStream nextPutAll:'"{ Package: '''.
+        aStream nextPutAll:self package asString.
+        aStream nextPutAll:''' }"'; cr; cr.
+    ].
+
     ((owner isNil and:[fullName not])
     or:[owner notNil and:[forceNameSpace and:[fullName not]]]) ifTrue:[
         (ns notNil and:[ns ~~ Smalltalk]) ifTrue:[
@@ -4078,5 +4086,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.368 2000-03-21 10:49:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.369 2000-03-29 16:25:25 cg Exp $'
 ! !