--- a/Float.st	Sat Jan 26 16:03:23 2013 +0100
+++ b/Float.st	Sat Jan 26 16:04:17 2013 +0100
@@ -899,6 +899,19 @@
 	if (val != 0.0) {
 	    goto computeResult;
 	}
+#ifdef LONGFLOAT_KNOWN_HERE
+    } else if (__isLongFloat(aNumber)) {
+	long double lval;
+
+	lval = (long double)(__longFloatVal(aNumber));
+	if (val != 0.0) {
+	    long double lResult;
+
+	    lResult = fmodl((long double)(__floatVal(self)), lval);
+	    __qMKLFLOAT(newFloat, lResult);
+	    RETURN (newFloat);
+	}
+#endif
     }
 %}.
     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
@@ -2843,11 +2856,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.184 2013-01-23 18:01:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.185 2013-01-26 15:04:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.184 2013-01-23 18:01:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.185 2013-01-26 15:04:17 cg Exp $'
 ! !