diff --git a/lib/srfi/128/comparators.scm b/lib/srfi/128/comparators.scm
index c186f5ff..2d135a73 100644
--- a/lib/srfi/128/comparators.scm
+++ b/lib/srfi/128/comparators.scm
@@ -178,7 +178,9 @@
    (lambda (x y)
      (let lp ((ls (default-comparators)))
        (cond ((null? ls)
-              (equal? x y))
+              (if (number? x)
+                  (and (number? y) (= x y))
+                  (equal? x y)))
              ((and (comparator-test-type (car ls) x)
                    (comparator-test-type (car ls) y))
               ((comparator-equality-predicate (car ls)) x y))
diff --git a/lib/srfi/128/test.sld b/lib/srfi/128/test.sld
index e0711c6d..07f61d25 100644
--- a/lib/srfi/128/test.sld
+++ b/lib/srfi/128/test.sld
@@ -155,6 +155,8 @@
           (test-assert (not (<? default-comparator #t #t)))
           (test-assert (=? default-comparator #\a #\a))
           (test-assert (<? default-comparator #\a #\b))
+          (test-assert (=? default-comparator 1 1))
+          (test-assert (=? default-comparator 1 1.0))
 
           (test-assert (comparator-test-type default-comparator '()))
           (test-assert (comparator-test-type default-comparator #t))