--- a/VSEPackageFileSourceWriter.st Fri Feb 06 14:01:02 2015 +0100
+++ b/VSEPackageFileSourceWriter.st Fri Feb 06 14:01:07 2015 +0100
@@ -153,6 +153,14 @@
mclass := aMethod mclass.
isMeta := mclass isMetaclass.
+ isExtension ifTrue:[
+ "/ skip - leads to trouble
+ ((sel == #date) and:[mclass == Timestamp]) ifTrue:[
+ Transcript showCR:'- skip TimeStamp >> date'.
+ ^ self.
+ ].
+ ].
+
projectDefinitionClass isNil ifTrue:[
"/ 02/03/15 04:26:18 PM by unknown
date := Date today.
@@ -372,10 +380,10 @@
!VSEPackageFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.14 2015-02-06 10:07:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.15 2015-02-06 13:01:07 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.14 2015-02-06 10:07:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.15 2015-02-06 13:01:07 cg Exp $'
! !