--- a/QDouble.st	Mon Dec 02 08:43:54 2019 +0100
+++ b/QDouble.st	Mon Dec 02 08:45:32 2019 +0100
@@ -3847,6 +3847,20 @@
     "Modified: / 13-06-2017 / 18:01:52 / cg"
 !
 
+lessFromFloat:aFloat
+    |d0|
+
+    ^ ((d0 := self d0) > aFloat)
+    or:[ d0 = aFloat and:[ self d1 > 0.0 ]]
+
+    "
+     1.0 < (1.0 asQDouble)   
+     1.0 < (1.1 asQDouble)   
+     -1.0 < (-1.1 asQDouble)   
+     -1.1 < (-1.0 asQDouble)   
+    "
+!
+
 lessFromQDouble:aQDouble
     "sent when aQDouble does not know how to compare to the receiver..
      Return true if aQDouble < self"