diff --git a/src/ikarus.boot b/src/ikarus.boot
index ee84961..f200556 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.numerics.ss b/src/ikarus.numerics.ss
index 254bbb8..16300f5 100644
--- a/src/ikarus.numerics.ss
+++ b/src/ikarus.numerics.ss
@@ -975,7 +975,7 @@
                     (if (flfl< x y)
                         (flloopt y (car ls) (cdr ls))
                         (loopf (car ls) (cdr ls))))]
-               [(flonum? y)
+               [(ratnum? y)
                 (if (null? ls)
                     (flrt< x y)
                     (if (flrt< x y)
@@ -1003,7 +1003,7 @@
                     (if (rtfl< x y)
                         (flloopt y (car ls) (cdr ls))
                         (loopf (car ls) (cdr ls))))]
-               [(flonum? y)
+               [(ratnum? y)
                 (if (null? ls)
                     (rtrt< x y)
                     (if (rtrt< x y)
@@ -1014,7 +1014,9 @@
            (lambda (x ls)
              (cond
                [(number? x) 
-                (or (null? ls) (loopf (car ls) (cdr ls)))]
+                (if (null? ls) 
+                    #f
+                    (loopf (car ls) (cdr ls)))]
                [else (err x)])))
          (define f
            (case-lambda