--- a/ClassCommentChange.st	Mon Feb 16 14:59:29 1998 +0100
+++ b/ClassCommentChange.st	Mon Feb 16 15:00:00 1998 +0100
@@ -45,6 +45,13 @@
 
 !ClassCommentChange methodsFor:'accessing'!
 
+className:clsName comment:aCommentString
+    className := clsName.
+    comment := aCommentString
+
+    "Created: / 16.2.1998 / 14:16:45 / cg"
+!
+
 comment
     ^ comment
 ! !
@@ -60,5 +67,5 @@
 !ClassCommentChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.12 1996-04-25 17:04:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.13 1998-02-16 13:59:49 cg Exp $'
 ! !