--- a/Class.st	Thu Jan 25 16:55:51 1996 +0100
+++ b/Class.st	Thu Jan 25 17:22:29 1996 +0100
@@ -1004,6 +1004,7 @@
     "/   category
     "/   classInstVarNames
     "/   comment
+    "/   package
 
     superclass isNil ifTrue:[
 	s := nil
@@ -1039,6 +1040,7 @@
 	s := nil
     ].
     s storeBinaryOn:stream manager:manager.
+    package storeBinaryOn:stream manager:manager.
 
     "/ store
     "/   number of class methods
@@ -1101,7 +1103,7 @@
      #storeBinaryClassOn:manager:"
 
     |superclassName name flags instvars classvars category classInstVars
-     comment nSel sel lastCategory
+     comment package nSel sel lastCategory
      newClass superClass selectors methods cselectors cmethods|
 
     "/ the following order must correlate to
@@ -1116,6 +1118,7 @@
     "/   category
     "/   classInstVarNames
     "/   comment
+    "/   package
 
     superclassName := manager nextObject.
     superclassName notNil ifTrue:[
@@ -1137,6 +1140,7 @@
     classInstVars := manager nextObject.
     classInstVars isNil ifTrue:[classInstVars := ''].
     comment := manager nextObject.
+    package := manager nextObject.
 
 "/    'got superName:' print. superclassName printNL.
 "/    'got name:' print. name printNL.
@@ -1203,6 +1207,7 @@
     ].
 "/    newClass class instanceVariableNames:classInstVars.
 
+    newClass package:package.
     newClass selectors:selectors methods:methods.
     newClass class selectors:cselectors methods:cmethods.
     ^ newClass
@@ -3730,6 +3735,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.127 1996-01-25 15:55:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.128 1996-01-25 16:22:29 cg Exp $'
 ! !
 Class initialize!