diff --git a/scheme/ikarus.hash-tables.ss b/scheme/ikarus.hash-tables.ss
index 7f71e63..d747b60 100644
--- a/scheme/ikarus.hash-tables.ss
+++ b/scheme/ikarus.hash-tables.ss
@@ -395,7 +395,7 @@
            [else 
             (lambda (k)
               (let ([i (f k)])
-                (if (and (or (fixnum? i) (bignum? i)) (>= i 0))
+                (if (or (fixnum? i) (bignum? i))
                     i
                     (die #f "invalid return value from hash function" i))))]))
        (unless (procedure? hashf)
diff --git a/scheme/last-revision b/scheme/last-revision
index cd6a6c7..e1d33be 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1846
+1847