--- a/Class.st	Sat Oct 12 15:37:25 1996 +0200
+++ b/Class.st	Sat Oct 12 17:50:16 1996 +0200
@@ -12,7 +12,7 @@
 
 ClassDescription subclass:#Class
 	instanceVariableNames:'classvars comment subclasses classFilename package revision
-		history privateClasses'
+		hook'
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions MethodRedefinitionSignal
 		UpdateChangeFileQuerySignal TryLocalSourceFirst
@@ -67,7 +67,9 @@
 
         revision        <String>        revision string - inserted by stc
 
-        history         <any>           a place for a history string (not currently used)
+        hook            <any>           reserved: a place to add additional attributes,
+				        without a need to recompile all classes.
+					Currently unused.
 
     [Class variables:]
 
@@ -581,22 +583,6 @@
     "
 !
 
-history 
-    "return the history  of the class"
-
-    ^ history 
-
-    "
-     Object history   
-    "
-!
-
-history:aString
-    "set the history of the class."
-
-    history  := aString
-!
-
 package
     "return the package of the class"
 
@@ -779,12 +765,6 @@
     category := cat asSymbol
 !
 
-setHistory:aString
-    "set the history of the class."
-
-    history  := aString
-!
-
 setPackage:aStringOrSymbol
     "set the package of the class."
 
@@ -4094,6 +4074,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.174 1996-10-12 13:27:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.175 1996-10-12 15:50:16 cg Exp $'
 ! !
 Class initialize!