1 files changed, 1 insertions, 1 deletions
diff --git a/reduce.c b/reduce.c
index 2d72394..6c61f9a 100644
--- a/reduce.c
+++ b/reduce.c
@@ -1933,7 +1933,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
     case READY(ENTIER_FN): /* floor */
     UPLEFT;
     if(tag[lastarg]==INT)simpl(lastarg);
-    else simpl(dbltobig(get_dbl(lastarg)));
+    else simpl(big_fromd(get_dbl(lastarg)));
     goto DONE;
 
     case READY(LOG_FN): /* log */