--- a/Class.st	Sun Aug 13 22:48:41 1995 +0200
+++ b/Class.st	Tue Aug 15 20:55:40 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $
 "
 !
 
@@ -75,7 +75,7 @@
 	package         <Symbol>        the package, in which the class was defined
 					(inserted by compilers)
 
-	revision	<String>	revision string - inserted by stc
+	revision        <String>        revision string - inserted by stc
 
 	history         <any>           a place for a history string (not currently used)
 
@@ -834,14 +834,14 @@
 	    Smalltalk removeKey:(self name , ':' , aName) asSymbol.
 	].
 	any ifTrue:[
-	    Smalltalk changed:#classVariables
-	]
+	    Smalltalk changed:#classVariables with:self
+	].
     ]
 !
 
 addClassVarName:aString
     "add a class variable if not already there and initialize it with nil.
-     Also write a change record and notify dependents.
+     Also writes a change record and notifies dependents.
      BUG: Currently, no recompilation is done - this will change."
 
     (self classVarNames includes:aString) ifFalse:[
@@ -853,7 +853,7 @@
 
 removeClassVarName:aString
     "remove a class variable if not already there.
-     Also write a change record and notify dependents.
+     Also writes a change record and notifies dependents.
      BUG: Currently, no recompilation is done - this will change."
 
     |names newNames|
@@ -870,7 +870,7 @@
 
 renameCategory:oldCategory to:newCategory
     "rename a category (changes category of those methods).
-     Append a change record and notifies dependents."
+     Appends a change record and notifies dependents."
 
     |any|