--- a/Float.st	Thu Jun 30 21:12:35 2016 +0100
+++ b/Float.st	Fri Jul 01 15:31:10 2016 +0100
@@ -496,6 +496,7 @@
     ^ Epsilon
 ! !
 
+
 !Float class methodsFor:'binary storage'!
 
 readBinaryIEEEDoubleFrom:aStream
@@ -777,23 +778,13 @@
     "
 ! !
 
+
 !Float class methodsFor:'queries'!
 
 exponentCharacter
     ^ $d
 !
 
-hasSharedInstances
-    "return true if this class has shared instances, that is, instances
-     with the same value are identical.
-     Although not really shared, floats should be treated
-     so, to be independent of the implementation of the arithmetic methods."
-
-    ^ true
-
-
-!
-
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -842,6 +833,7 @@
     ^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
 ! !
 
+
 !Float methodsFor:'arithmetic'!
 
 * aNumber
@@ -2355,6 +2347,7 @@
     "
 ! !
 
+
 !Float methodsFor:'testing'!
 
 isFinite