1 files changed, 1 insertions, 1 deletions
diff --git a/arith.c b/arith.c
index 75ae66dd..e75d4384 100644
--- a/arith.c
+++ b/arith.c
@@ -2349,7 +2349,7 @@ val flo_int(val i)
 
   {
     double d;
-    type_check(i, BGNUM);
+    type_check(self, i, BGNUM);
     if (mp_to_double(mp(i), &d) != MP_OKAY)
       uw_throwf(error_s, lit("~a: bignum to float conversion failed"),
                 self, nao);