*** otherlibs/num/big_int.ml.old	Sat Dec 27 23:45:12 2003
--- otherlibs/num/big_int.ml	Sat Dec 27 23:38:44 2003
***************
*** 178,183 ****
--- 178,184 ----
    if i = monster_int
       then let res = create_nat size_res in
              blit_nat res 0 (bi.abs_value) 0 size_bi;
+             set_digit_nat res size_bi 0;
              mult_digit_nat res 0 size_res (bi.abs_value) 0 size_bi 
                             (nat_of_int biggest_int) 0;
              { sign = - (sign_big_int bi);