--- a/ClassCommentChange.st	Tue Feb 01 21:13:25 2000 +0100
+++ b/ClassCommentChange.st	Tue Feb 01 21:13:57 2000 +0100
@@ -54,6 +54,12 @@
 
 comment
     ^ comment
+!
+
+comment:aCommentString
+    comment := aCommentString
+
+    "Created: / 16.2.1998 / 14:16:45 / cg"
 ! !
 
 !ClassCommentChange methodsFor:'comparing'!
@@ -76,6 +82,14 @@
     ^ comment = changeB comment 
 
 
+!
+
+source
+    "synthesize the changes source"
+
+    ^ className , ' comment: ' , comment storeString
+
+
 ! !
 
 !ClassCommentChange methodsFor:'printing'!
@@ -106,5 +120,5 @@
 !ClassCommentChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.21 1999-07-15 19:46:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.22 2000-02-01 20:13:57 cg Exp $'
 ! !