1 files changed, 5 insertions, 2 deletions
diff --git a/bignum.c b/bignum.c
index 5e9b28c4ec..ac84ae410c 100644
--- a/bignum.c
+++ b/bignum.c
@@ -350,14 +350,17 @@ big2int(x)
     UINT len = RBIGNUM(x)->len;
     USHORT *ds;
 
-    if (len > sizeof(long)/sizeof(USHORT))
-	ArgError("Bignum too big to convert into fixnum");
+    if (len > sizeof(INT)/sizeof(USHORT))
+	ArgError("bignum too big to convert into `int'");
     ds = BDIGITS(x);
     num = 0;
     while (len--) {
 	num = BIGUP(num);
 	num += ds[len];
     }
+    if ((INT)num < 0) {
+	ArgError("bignum too big to convert into `int'");
+    }
     if (!RBIGNUM(x)->sign) return -num;
     return num;
 }