--- a/MCClassComment.st	Mon Sep 13 15:51:06 2021 +0100
+++ b/MCClassComment.st	Fri Sep 17 12:22:46 2021 +0100
@@ -1,5 +1,5 @@
 "
-COPYRIGHT (c) 2020 LabWare
+COPYRIGHT (c) 2020-2021 LabWare
 "
 "{ Package: 'stx:goodies/monticello' }"
 
@@ -16,7 +16,7 @@
 
 copyright
 "
-COPYRIGHT (c) 2020 LabWare
+COPYRIGHT (c) 2020-2021 LabWare
 
 
 "
@@ -42,6 +42,10 @@
     ^ comment
 !
 
+comment:aString
+    comment := aString.
+!
+
 sortKey
     ^ self summary
 
@@ -50,6 +54,10 @@
 
 source
     ^ source
+!
+
+source:aString
+    source := aString.
 ! !
 
 !MCClassComment methodsFor:'comparing'!