diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index f7ceb49..573dbf6 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -3266,7 +3266,7 @@
          (let ([n (numerator x)] [d (denominator x)]
                [n^ (numerator y)] [d^ (denominator y)])
            (- (simplest^ (- n^) d^ (- n) d)))]
-        [else 1]))
+        [else 0]))
     (define (simplest^ n d n^ d^)
       (let-values ([(q r) (div-and-mod n d)])
         (if (= r 0) 
diff --git a/scheme/last-revision b/scheme/last-revision
index b1e142d..5882485 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1584
+1585