New upstream version 5f2upstream/5f2upstream

1 files changed, 1 insertions, 1 deletions

diff --git a/ramap.c b/ramap.c
index 0cedfad..d406f9e 100644..100755
--- a/ramap.c
+++ b/ramap.c
@@ -595,7 +595,7 @@ SCM sc2array(s, ra, prot)
     if (NUMBERP(s)) break;
     goto mismatch;
 #endif
-  mismatch: ARRAY_V(res) = make_vector(MAKINUM(1), s);
+  mismatch: ARRAY_V(res) = make_vector(MAKINUM(1L), s);
     return res;
   }
   aset(ARRAY_V(res), s, INUM0);