--- a/VSEChunkFileSourceWriter.st	Fri Feb 06 11:08:20 2015 +0100
+++ b/VSEChunkFileSourceWriter.st	Fri Feb 06 14:01:02 2015 +0100
@@ -279,7 +279,7 @@
         Smalltalk allClassesDo:[:eachClass |
             (classesToFileout includes:eachClass) ifFalse:[
                 eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-                    |mPckg targetClass skip|
+                    |skip mPckg targetClass|
 
                     skip := false.
                     mPckg := mthd package.
@@ -295,6 +295,12 @@
                                 Transcript showCR:'- moved extension method to Float'.
                             ].
                         ].
+                        "/ skip - leads to trouble
+                        ((sel == #date) and:[targetClass == Timestamp]) ifTrue:[
+                            Transcript showCR:'- skip TimeStamp >> date'.
+                            skip := true.
+                        ].
+
                         skip ifFalse:[
                             aStream nextPutChunkSeparator.
                             aStream nextPutAll:(self rewrittenClassNameOf:targetClass theNonMetaclass).
@@ -340,10 +346,10 @@
 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.14 2015-02-06 10:07:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.15 2015-02-06 13:01:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.14 2015-02-06 10:07:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.15 2015-02-06 13:01:02 cg Exp $'
 ! !