1 files changed, 2 insertions, 2 deletions
diff --git a/reduce.c b/reduce.c
index 170d76f..5a7208d 100644
--- a/reduce.c
+++ b/reduce.c
@@ -72,7 +72,7 @@ word a,b;
       if(tag[b]==DOUBLE)return(fsign(get_dbl(a)-get_dbl(b)));
       else return(fsign(get_dbl(a)-big_tod(b)));
       case INT:
-      if(tag[b]==INT)return(bigcmp(a,b));
+      if(tag[b]==INT)return(big_compare(a,b));
       else return(fsign(big_tod(a)-get_dbl(b)));
       case UNICODE: return sign(get_char(a)-get_char(b));
       case ATOM:
@@ -592,7 +592,7 @@ word e;
     upleft;
     lastarg=reduce(lastarg);   /* ### */
     hd[e]=I;
-    e=tl[e]=(tag[lastarg]!=INT||bigcmp(arg1,lastarg))?FAIL:arg2;
+    e=tl[e]=(tag[lastarg]!=INT||big_compare(arg1,lastarg))?FAIL:arg2;
     /* note no coercion from INT to DOUBLE here */
     goto NEXTREDEX;