--- a/Class.st	Mon Jun 16 15:35:44 2003 +0200
+++ b/Class.st	Mon Jun 16 15:57:03 2003 +0200
@@ -14,7 +14,7 @@
 
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
-		revision primitiveSpec environment signature attributes'
+		revision environment signature attributes'
 	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
 		DefaultCategoryForDolphin'
 	poolDictionaries:''
@@ -22,7 +22,7 @@
 !
 
 Object subclass:#ClassAttributes
-	instanceVariableNames:'primitiveDefinitions primitiveVariables primitiveFunctions'
+	instanceVariableNames:'primDefinitions primVariables primFunctions'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:Class
@@ -71,18 +71,15 @@
 
 	revision        <String>        revision string - inserted by stc
 
-	primitiveSpec   <Array | nil>   describes primitiveIncludes, primitiveFunctions etc.
-
 	environment     <Symbol | nil>  cached environment (i.e. Smalltalk or a namespace)
-					of class
 
 	signature       <SmallInteger>  the classes signature (used to detect obsolete
 					or changed classes with binaryStorage)
 					This is filled in lazy - i.e. upon the first signature query.
 
-	hook            <any>           reserved: a place to add additional attributes,
+	attributes   <Array | nil>      describes primitiveIncludes, primitiveFunctions etc.
+					also a place to add additional attributes,
 					without a need to recompile all classes.
-					Currently unused.
 
 
     WARNING: layout known by compiler and runtime system
@@ -4844,37 +4841,37 @@
 primitiveDefinitions
     "return the value of the instance variable 'primitiveDefinitions' (automatically generated)"
 
-    ^ primitiveDefinitions
+    ^ primDefinitions
 !
 
 primitiveDefinitions:something
     "set the value of the instance variable 'primitiveDefinitions' (automatically generated)"
 
-    primitiveDefinitions := something.
+    primDefinitions := something.
 !
 
 primitiveFunctions
     "return the value of the instance variable 'primitiveFunctions' (automatically generated)"
 
-    ^ primitiveFunctions
+    ^ primFunctions
 !
 
 primitiveFunctions:something
     "set the value of the instance variable 'primitiveFunctions' (automatically generated)"
 
-    primitiveFunctions := something.
+    primFunctions := something.
 !
 
 primitiveVariables
     "return the value of the instance variable 'primitiveVariables' (automatically generated)"
 
-    ^ primitiveVariables
+    ^ primVariables
 !
 
 primitiveVariables:something
     "set the value of the instance variable 'primitiveVariables' (automatically generated)"
 
-    primitiveVariables := something.
+    primVariables := something.
 ! !
 
 !Class::ClassAttributes methodsFor:'conversion'!
@@ -4884,13 +4881,13 @@
      (it does not know anything about me).
      This method is invoked to convert."
 
-    primitiveDefinitions := anArray at:1.
-    primitiveVariables := anArray at:2.
-    primitiveFunctions := anArray at:3.
+    primDefinitions := anArray at:1.
+    primVariables := anArray at:2.
+    primFunctions := anArray at:3.
 ! !
 
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.436 2003-06-16 13:35:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.437 2003-06-16 13:57:03 cg Exp $'
 ! !