diff --git a/src/ikarus.boot b/src/ikarus.boot
index 08e5c53..a582596 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 ea8c44b..05a425d 100644
--- a/src/ikarus.numerics.ss
+++ b/src/ikarus.numerics.ss
@@ -98,7 +98,7 @@
 
 (library (ikarus generic-arithmetic)
   (export + - * / zero? = < <= > >= add1 sub1 quotient remainder
-          modulo even?
+          modulo even? odd?
           positive? expt gcd lcm numerator denominator exact-integer-sqrt
           quotient+remainder number->string string->number min max
           exact->inexact floor ceiling round log fl=? fl<? fl<=? fl>?
@@ -112,7 +112,7 @@
     (ikarus system $strings)
     (only (ikarus flonums) $flonum->exact)
     (except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
-            remainder modulo even? quotient+remainder number->string positive?
+            remainder modulo even? odd? quotient+remainder number->string positive?
             string->number expt gcd lcm numerator denominator
             exact->inexact floor ceiling round log
             exact-integer-sqrt min max
@@ -1750,9 +1750,6 @@
     (only (ikarus flonums) flonum-parts)
     (except (ikarus) flonum->string string->flonum ))
   
-  (define (even? n) 
-    (= (remainder n 2) 0))
-  
   (module (flonum->string)
     (module (flonum->digits)
       (define flonum->digits
diff --git a/src/makefile.ss b/src/makefile.ss
index 477d79c..e1dd5bc 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -398,6 +398,7 @@
     [flonum?                 i]
     [positive?               i r]
     [even?                   i r]
+    [odd?                    i r]
     [quotient                i r]
     [modulo                  i r]
     [remainder               i r]