diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index 77c6d07..f61a968 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -482,7 +482,7 @@
     (let ([n ($ratnum-n num)] [d ($ratnum-d num)])
       (if (> n 0) 
           (pos n d)
-          (- (pos n d)))))
+          (- (pos (- n) d)))))
 
 
   (define binary+
diff --git a/scheme/last-revision b/scheme/last-revision
index 6b6f35a..08507bb 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1408
+1409