--- a/Float.st	Mon Nov 25 15:24:07 2019 +0100
+++ b/Float.st	Mon Nov 25 15:24:14 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1400,21 +1398,6 @@
     "Modified (comment): / 07-06-2019 / 02:34:07 / Claus Gittinger"
 !
 
-asQuadFloat
-    "return a quadFloat with same value as receiver"
-
-    ^ QuadFloat fromFloat:self
-
-    "
-     123 asFloat asQuadFloat
-     0 asFloat asQuadFloat
-     0.0 asQuadFloat
-    "
-
-    "Created: / 07-06-2019 / 02:28:26 / Claus Gittinger"
-    "Modified (comment): / 10-06-2019 / 21:51:04 / Claus Gittinger"
-!
-
 asShortFloat
     "return a ShortFloat with same value as receiver.
      Raises an error if the receiver exceeds the float range."