--- a/VSEPackageFileSourceWriter.st	Fri Feb 06 11:07:36 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Fri Feb 06 11:07:55 2015 +0100
@@ -191,6 +191,7 @@
             ].
             "/ self halt:'save for Float instead of LPReal'.
             mclass := mclass isMeta ifTrue:[Float class] ifFalse:[Float].
+            Transcript showCR:'- moved extension method to Float'.
         ].
         aStream nextPutAll:'MethodDefinition ',(self rewrittenClassNameOf:mclass theNonMetaclass).
     ] ifFalse:[
@@ -371,10 +372,10 @@
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.13 2015-02-05 15:01:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.14 2015-02-06 10:07:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.13 2015-02-05 15:01:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.14 2015-02-06 10:07:55 cg Exp $'
 ! !