--- a/MCCommitDialog.st	Thu Mar 21 18:40:07 2013 +0100
+++ b/MCCommitDialog.st	Thu Mar 21 18:42:27 2013 +0100
@@ -4,7 +4,7 @@
 	instanceVariableNames:'workingCopyHolder repositoryHolder versionNameHolder
 		messageHolder messageView versionNameFinderProcess
 		includeExtrasForSTX'
-	classVariableNames:'LastRepository'
+	classVariableNames:'LastRepository DefaultForIncludeSTXExtras'
 	poolDictionaries:''
 	category:'SCM-Monticello-St/X UI'
 !
@@ -198,8 +198,9 @@
         "/ sigh: make a new snapshot (now with updated version methods)
         version snapshot:version package snapshot.
         version cachable:false. "/ force new a write (otherwise, the mcz is not rewritten)
-        version snapshot includeExtrasForSTX:(self includeExtrasForSTX value).
+        version snapshot includeExtrasForSTX:(DefaultForIncludeSTXExtras := self includeExtrasForSTX value).
         repository storeVersion: version.
+
         super doAccept.
     ].
 
@@ -211,7 +212,7 @@
 
 includeExtrasForSTX
     includeExtrasForSTX isNil ifTrue:[
-        includeExtrasForSTX := false "true" asValue.
+        includeExtrasForSTX := (DefaultForIncludeSTXExtras ? true) asValue.
     ].
     ^ includeExtrasForSTX
 !
@@ -475,11 +476,11 @@
 !MCCommitDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.9 2013-03-21 17:40:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.10 2013-03-21 17:42:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.9 2013-03-21 17:40:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCommitDialog.st,v 1.10 2013-03-21 17:42:27 cg Exp $'
 !
 
 version_MC