--- a/MCVersion.st	Thu Dec 01 21:02:37 2011 +0100
+++ b/MCVersion.st	Fri Dec 02 16:10:42 2011 +0100
@@ -59,6 +59,12 @@
 	^ snapshot
 !
 
+snapshot:anMCSnapshot
+   snapshot := anMCSnapshot
+
+    "Created: / 02-12-2011 / 16:10:18 / cg"
+!
+
 summary
 	^ String streamContents:
 		[:s |
@@ -216,5 +222,5 @@
 !MCVersion class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.1 2006-11-22 13:17:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.2 2011-12-02 15:10:42 cg Exp $'
 ! !