VSEPackageFileSourceWriter.st
changeset 3768 f5dd35b8248f
parent 3765 6b2537f0d806
child 3770 6926a91bf40d
--- 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 $'
 ! !