--- a/Float.st	Tue Feb 05 16:27:51 2013 +0100
+++ b/Float.st	Tue Feb 05 16:29:32 2013 +0100
@@ -21,6 +21,7 @@
 
 !Float primitiveDefinitions!
 %{
+#include <stdio.h>
 #include <errno.h>
 
 #ifndef __OPTIMIZE__
@@ -1900,17 +1901,12 @@
 
 %{  /* NOCONTEXT */
 
-    double frexp();
     double frac;
     int exp;
 
-    __threadErrno = 0;
     frac = frexp(__floatVal(self), &exp);
-    if (__threadErrno == 0) {
-	RETURN (__mkSmallInteger(exp));
-    }
+    RETURN (__mkSmallInteger(exp));
 %}.
-    ^ self primitiveFailed
 
     "
      1.0 exponent
@@ -1935,17 +1931,12 @@
 
 %{  /* NOCONTEXT */
 
-    double frexp();
     double frac;
     int exp;
 
-    __threadErrno = 0;
     frac = frexp(__floatVal(self), &exp);
-    if (__threadErrno == 0) {
-	RETURN (__MKFLOAT(frac));
-    }
+    RETURN (__MKFLOAT(frac));
 %}.
-    ^ self primitiveFailed
 
     "
      1.0 exponent
@@ -2856,11 +2847,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.186 2013-01-29 12:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.187 2013-02-05 15:29:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.186 2013-01-29 12:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.187 2013-02-05 15:29:32 stefan Exp $'
 ! !