diff --git a/src/ikarus.boot b/src/ikarus.boot
index afd647e..08e5c53 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 3610192..ea8c44b 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
+          modulo even?
           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 quotient+remainder number->string positive?
+            remainder modulo even? quotient+remainder number->string positive?
             string->number expt gcd lcm numerator denominator
             exact->inexact floor ceiling round log
             exact-integer-sqrt min max
diff --git a/src/makefile.ss b/src/makefile.ss
index 68f3358..477d79c 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -397,6 +397,7 @@
     [rational?               i r]
     [flonum?                 i]
     [positive?               i r]
+    [even?                   i r]
     [quotient                i r]
     [modulo                  i r]
     [remainder               i r]