diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index e0731e4..6e1a251 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -1716,7 +1716,10 @@
       (cond
         [(fixnum? n)
          (cond
-           [(fixnum? m) ($fxmodulo n m)]
+           [(fixnum? m)
+            (if (eqv? m 0)
+                (die 'modulo "division by zero" n m)
+                ($fxmodulo n m))]
            [(bignum? m) 
             (if ($fx< n 0)
                 (if ($bignum-positive? m) 
diff --git a/scheme/last-revision b/scheme/last-revision
index 2e5f524..179dea5 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1817
+1818