--- a/MCSnapshot.st	Thu Mar 21 17:40:26 2013 +0100
+++ b/MCSnapshot.st	Thu Mar 21 17:46:14 2013 +0100
@@ -1,7 +1,7 @@
 "{ Package: 'stx:goodies/monticello' }"
 
 Object subclass:#MCSnapshot
-	instanceVariableNames:'definitions'
+	instanceVariableNames:'definitions includeExtrasForSTX'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SCM-Monticello-Base'
@@ -30,6 +30,14 @@
 
 hash
 	^ definitions asArray hash
+!
+
+includeExtrasForSTX
+    ^ includeExtrasForSTX
+!
+
+includeExtrasForSTX:something
+    includeExtrasForSTX := something.
 ! !
 
 !MCSnapshot methodsFor:'converting'!
@@ -68,13 +76,14 @@
 !MCSnapshot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.4 2012-09-11 21:28:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.5 2013-03-21 16:46:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.4 2012-09-11 21:28:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.5 2013-03-21 16:46:14 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: MCSnapshot.st 22 2010-10-27 12:44:00Z vranyj1 §'
 ! !
+