diff --git a/src/ikarus.boot b/src/ikarus.boot
index ad7a8e2..0ebdb36 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 753e7c2..f44a5fc 100644
--- a/src/ikarus.numerics.ss
+++ b/src/ikarus.numerics.ss
@@ -23,13 +23,14 @@
 
 (library (ikarus generic-arithmetic)
   (export + - * zero? = < <= > >= add1 sub1 quotient remainder
+          positive?
           quotient+remainder number->string string->number)
   (import 
     (ikarus system $fx)
     (ikarus system $chars)
     (ikarus system $strings)
     (except (ikarus) + - * zero? = < <= > >= add1 sub1 quotient
-            remainder quotient+remainder number->string
+            remainder quotient+remainder number->string positive?
             string->number))
 
   (define (fixnum->flonum x)
diff --git a/src/makefile.ss b/src/makefile.ss
index c852f5c..e6f2dcc 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -289,6 +289,7 @@
     [bignum?                 i]
     [integer?                i]
     [flonum?                 i]
+    [positive?               i r]
     [quotient                i r]
     [remainder               i r]
     [quotient+remainder      i r]