1 files changed, 1 insertions, 1 deletions
diff --git a/reduce.c b/reduce.c
index 956d5dc..2d72394 100644
--- a/reduce.c
+++ b/reduce.c
@@ -2067,7 +2067,7 @@ L3: if(arg1==NIL)lexfail(lastarg);
       setdbl(e,get_dbl(arg1)*force_dbl(lastarg)); else
     if(tag[lastarg]==DOUBLE)
       setdbl(e,big_tod(arg1)*get_dbl(lastarg));
-    else simpl(bigtimes(arg1,lastarg));
+    else simpl(big_multiply(arg1,lastarg));
     goto DONE;
 
     case READY(INTDIV):