--- a/Float.st	Tue Mar 03 11:48:10 2015 +0100
+++ b/Float.st	Wed Mar 04 20:01:43 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -368,7 +370,7 @@
 %}
 
     "
-        Float fromIEEE32Bit:(#[64 73 15 219] asInteger)
+        ShortFloat fromIEEE32Bit:(ShortFloat pi digitBytesMSB:true) asInteger
     "
 !
 
@@ -390,7 +392,7 @@
     self primitiveFailed.
 
     "
-        Float fromIEEE64Bit:(#[64 73 15 219] asInteger)
+        Float fromIEEE64Bit:(Float pi digitBytesMSB:true) asInteger
     "
 !
 
@@ -445,7 +447,6 @@
     ^ Epsilon
 ! !
 
-
 !Float class methodsFor:'binary storage'!
 
 readBinaryIEEEDoubleFrom:aStream
@@ -3088,11 +3089,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.209 2015-02-03 16:29:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.210 2015-03-04 19:01:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.209 2015-02-03 16:29:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.210 2015-03-04 19:01:43 stefan Exp $'
 ! !