diff --git a/scheme/last-revision b/scheme/last-revision
index d923863..8cd333f 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1859
+1860
diff --git a/src/ikarus-numerics.c b/src/ikarus-numerics.c
index 0bba3b6..6c24364 100644
--- a/src/ikarus-numerics.c
+++ b/src/ikarus-numerics.c
@@ -1924,8 +1924,8 @@ ikrt_bignum_to_bytevector(ikptr x, ikpcb* pcb){
 
 ikptr 
 ikrt_fxrandom(ikptr x){
-  int mask = 1; 
-  int n = unfix(x); 
+  long int mask = 1; 
+  long int n = unfix(x); 
   {
     while(mask < n){
       mask = (mask << 1) | 1;