--- a/Float.st	Tue Oct 10 16:03:17 2017 +0200
+++ b/Float.st	Tue Oct 10 16:03:50 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -2010,6 +2008,17 @@
 
 !Float methodsFor:'printing & storing'!
 
+printOn:aStream
+    "append a printed representation of the receiver to
+     the argument, aStream.
+
+     I use #printString instead of #printOn: as basic print mechanism."
+
+    aStream nextPutAll:self printString
+
+    "Created: / 10-10-2017 / 14:05:13 / cg"
+!
+
 printString
     "return a printed representation of the receiver;
      if not specified otherwise (by setting DefaultPrintFormat),
@@ -2218,6 +2227,17 @@
     "Modified (comment): / 03-07-2017 / 15:11:13 / cg"
 !
 
+storeOn:aStream
+    "append a printed representation of the receiver to
+     the argument, aStream.
+
+     I use #storeString instead of #storeOn: as basic store mechanism."
+
+    aStream nextPutAll:self storeString
+
+    "Created: / 10-10-2017 / 14:06:39 / cg"
+!
+
 storeString
     "return a printed representation of the receiver;
      all valid digits are printed.