--- a/Float.st	Wed Apr 17 19:06:50 1996 +0200
+++ b/Float.st	Wed Apr 17 22:22:03 1996 +0200
@@ -87,8 +87,12 @@
      binary stored in a device independent format."
 
 %{  /* NOCONTEXT */
-    RETURN ( __MKFLOAT((0.0) COMMA_SND) );
+    OBJ newFloat;
+
+    __qMKFLOAT(newFloat, 0.0, SENDER);
+    RETURN (newFloat);
 %}
+
 ! !
 
 !Float class methodsFor:'binary storage'!
@@ -1063,5 +1067,5 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.35 1996-04-17 10:31:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.36 1996-04-17 20:22:03 cg Exp $'
 ! !