--- a/VSEFileSourceWriter.st	Sun Jun 28 03:54:11 2015 +0000
+++ b/VSEFileSourceWriter.st	Mon Jul 06 15:52:00 2015 +0200
@@ -16,7 +16,7 @@
 "{ NameSpace: Smalltalk }"
 
 SmalltalkChunkFileSourceWriter subclass:#VSEFileSourceWriter
-	instanceVariableNames:'classNameTranslations'
+	instanceVariableNames:'classNameTranslations skipVersionMethods'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Classes-Support'
@@ -132,10 +132,17 @@
     "
 ! !
 
+!VSEFileSourceWriter methodsFor:'accessing'!
+
+skipVersionMethods:aBoolean
+    skipVersionMethods := aBoolean.
+! !
+
 !VSEFileSourceWriter methodsFor:'initialization'!
 
 initialize
-    classNameTranslations := self class defaultClassNameTranslations
+    classNameTranslations := self class defaultClassNameTranslations.
+    skipVersionMethods := true.
 ! !
 
 !VSEFileSourceWriter methodsFor:'utilities'!
@@ -620,10 +627,10 @@
 !VSEFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.27 2015-03-09 14:08:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.27 2015-03-09 14:08:41 cg Exp $'
+    ^ '$Header$'
 ! !