diff --git a/bignum.c b/bignum.c index 27cf85dc..83b412c2 100644 --- a/bignum.c +++ b/bignum.c @@ -183,7 +183,7 @@ sexp sexp_bignum_fxmul (sexp ctx, sexp d, sexp a, sexp_uint_t b, int offset) { sexp_gc_var1(tmp); sexp_gc_preserve1(ctx, tmp); if ((! d) || (sexp_bignum_length(d) < len+offset)) - d = tmp = sexp_make_bignum(ctx, len); + d = tmp = sexp_make_bignum(ctx, len+offset); else tmp = d; data = sexp_bignum_data(d);