diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index 0ed47ed..b987190 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -2734,9 +2734,9 @@
       (error who "not an integer" x))
     (unless (and (integer? y) (not (= y 0)))
       (error who "not an integer" y))
-    (if (> x 0) 
+    (if (>= x 0)
         (quotient+remainder x y)
-        (if (> y 0) 
+        (if (> y 0)
             (let-values ([(q r) (quotient+remainder (- x y) y)])
               (values q (+ r y)))
             (let-values ([(q r) (quotient+remainder (+ x y) y)])
diff --git a/scheme/last-revision b/scheme/last-revision
index b4fd007..e29bf83 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1142
+1143