1 files changed, 2 insertions, 2 deletions
diff --git a/reduce.c b/reduce.c
index a75f0a4..b5e7284 100644
--- a/reduce.c
+++ b/reduce.c
@@ -2045,7 +2045,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(bigplus(arg1,lastarg));
+    else simpl(big_add(arg1,lastarg));
     goto DONE;
 
     case READY(MINUS):
@@ -2275,7 +2275,7 @@ word x,y;
     return(sto_dbl(get_dbl(x)+force_dbl(y)));
   if(tag[y]==DOUBLE)
     return(sto_dbl(big_tod(x)+get_dbl(y)));
-  return(bigplus(x,y));
+  return(big_add(x,y));
 }
 
 void fn_error(s)