--- a/Class.st	Wed Dec 20 18:14:05 2000 +0100
+++ b/Class.st	Wed Dec 20 19:47:46 2000 +0100
@@ -260,7 +260,6 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
-
 !Class methodsFor:'Compatibility - ST80'!
 
 fileOutSourceOn:aStream
@@ -610,13 +609,14 @@
 
     newComment := aString.
     (aString notNil and:[aString isEmpty]) ifTrue:[
-	newComment := nil
+        newComment := nil
     ].
     comment ~= newComment ifTrue:[
-	oldComment := self comment.
-	comment := newComment.
-	self changed:#comment with:oldComment.
-	self addChangeRecordForClassComment:self.
+        oldComment := self comment.
+        comment := newComment.
+        self addChangeRecordForClassComment:self.
+        self changed:#comment with:oldComment.
+        Smalltalk changed:#classComment with:self.
     ]
 !
 
@@ -4560,5 +4560,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.391 2000-12-08 00:32:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.392 2000-12-20 18:47:46 cg Exp $'
 ! !