diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index be89a15..77c6d07 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -676,7 +676,7 @@
       [(a)
        (cond
          [(fixnum? a) a]
-         [(bignum? a) a]
+         [(number? a) a]
          [else (die '+ "not a number" a)])]
       [() 0]
       [(a b c d . e*)
@@ -730,7 +730,7 @@
       [(a)
        (cond
          [(fixnum? a) a]
-         [(bignum? a) a]
+         [(number? a) a]
          [else (die '* "not a number" a)])]
       [() 1]
       [(a b c d . e*)
diff --git a/scheme/last-revision b/scheme/last-revision
index a11d586..6b6f35a 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1407
+1408